// Occurs before user changes the cell's value.
Procedure OnComValidateValue HITEM   llItem Integer   llColIndex Variant   llNewValue Boolean   llCancel
	Forward Send OnComValidateValue llItem llColIndex llNewValue llCancel
	Showln "ValidateValue" llNewValue
	Showln "Change the Cancel parameter for ValidateValue event to accept/decline the newly value. "
	Showln "The DiscardValidateValue restores back the previously values."
	Send ComDiscardValidateValue
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart True to 0
	Send Destroy to hoChart
	Set ComCauseValidateValue to OLEexValidateCell
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Date" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Variant voEditor
			Get ComEditor of hoColumn to voEditor
			Handle hoEditor
			Get Create (RefClass(cComEditor)) to hoEditor
			Set pvComObject of hoEditor to voEditor
				Set ComEditType of hoEditor to OLEDateType
			Send Destroy to hoEditor
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Variant voColumn1
		Get ComAdd of hoColumns1 "Text" to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Variant voEditor1
			Get ComEditor of hoColumn1 to voEditor1
			Handle hoEditor1
			Get Create (RefClass(cComEditor)) to hoEditor1
			Set pvComObject of hoEditor1 to voEditor1
				Set ComEditType of hoEditor1 to OLEEditType
			Send Destroy to hoEditor1
		Send Destroy to hoColumn1
	Send Destroy to hoColumns1
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComCellValue of hoItems (ComAddItem(hoItems,"1/1/2001")) 1 to "text"
		Set ComCellValue of hoItems (ComAddItem(hoItems,"1/1/2001")) 1 to "text"
		Set ComCellValue of hoItems (ComAddItem(hoItems,"1/1/2001")) 1 to "text"
		Set ComCellValue of hoItems (ComAddItem(hoItems,"1/1/2001")) 1 to "text"
		Set ComCellValue of hoItems (ComAddItem(hoItems,"1/1/2001")) 1 to "text"
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

// Occurs before user changes the cell's value.
Procedure OnComValidateValue HITEM   llItem Integer   llColIndex Variant   llNewValue Boolean   llCancel
	Forward Send OnComValidateValue llItem llColIndex llNewValue llCancel
	Showln "ValidateValue" llNewValue
	Showln "Change the Cancel parameter for ValidateValue event to accept/decline the newly value. "
	Move True to Cancel
	Showln "You can not leave the item/record until the Cancel is False."
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart True to 0
	Send Destroy to hoChart
	Set ComCauseValidateValue to OLEexValidateItem
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Date" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Variant voEditor
			Get ComEditor of hoColumn to voEditor
			Handle hoEditor
			Get Create (RefClass(cComEditor)) to hoEditor
			Set pvComObject of hoEditor to voEditor
				Set ComEditType of hoEditor to OLEDateType
			Send Destroy to hoEditor
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Variant voColumn1
		Get ComAdd of hoColumns1 "Text" to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Variant voEditor1
			Get ComEditor of hoColumn1 to voEditor1
			Handle hoEditor1
			Get Create (RefClass(cComEditor)) to hoEditor1
			Set pvComObject of hoEditor1 to voEditor1
				Set ComEditType of hoEditor1 to OLEEditType
			Send Destroy to hoEditor1
		Send Destroy to hoColumn1
	Send Destroy to hoColumns1
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComCellValue of hoItems (ComAddItem(hoItems,"1/1/2001")) 1 to "text"
		Set ComCellValue of hoItems (ComAddItem(hoItems,"1/1/2001")) 1 to "text"
		Set ComCellValue of hoItems (ComAddItem(hoItems,"1/1/2001")) 1 to "text"
		Set ComCellValue of hoItems (ComAddItem(hoItems,"1/1/2001")) 1 to "text"
		Set ComCellValue of hoItems (ComAddItem(hoItems,"1/1/2001")) 1 to "text"
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

// Occurs before user changes the cell's value.
Procedure OnComValidateValue HITEM   llItem Integer   llColIndex Variant   llNewValue Boolean   llCancel
	Forward Send OnComValidateValue llItem llColIndex llNewValue llCancel
	Showln "ValidateValue" llNewValue
	Showln "Change the Cancel parameter for ValidateValue event to accept/decline the newly value."
	Move True to Cancel
	Showln "You can not leave the cell until the Cancel is False."
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart True to 0
	Send Destroy to hoChart
	Set ComCauseValidateValue to OLEexValidateCell
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Date" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Variant voEditor
			Get ComEditor of hoColumn to voEditor
			Handle hoEditor
			Get Create (RefClass(cComEditor)) to hoEditor
			Set pvComObject of hoEditor to voEditor
				Set ComEditType of hoEditor to OLEDateType
			Send Destroy to hoEditor
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Variant voColumn1
		Get ComAdd of hoColumns1 "Text" to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Variant voEditor1
			Get ComEditor of hoColumn1 to voEditor1
			Handle hoEditor1
			Get Create (RefClass(cComEditor)) to hoEditor1
			Set pvComObject of hoEditor1 to voEditor1
				Set ComEditType of hoEditor1 to OLEEditType
			Send Destroy to hoEditor1
		Send Destroy to hoColumn1
	Send Destroy to hoColumns1
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComCellValue of hoItems (ComAddItem(hoItems,"1/1/2001")) 1 to "text"
		Set ComCellValue of hoItems (ComAddItem(hoItems,"1/1/2001")) 1 to "text"
		Set ComCellValue of hoItems (ComAddItem(hoItems,"1/1/2001")) 1 to "text"
		Set ComCellValue of hoItems (ComAddItem(hoItems,"1/1/2001")) 1 to "text"
		Set ComCellValue of hoItems (ComAddItem(hoItems,"1/1/2001")) 1 to "text"
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Items" to Nothing
		Variant voColumn
		Get ComAdd of hoColumns "Pos" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComFormatColumn of hoColumn to "1 pos ''"
			Set ComPosition of hoColumn to 0
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems "Item 1" to Nothing
		Get ComAddItem of hoItems "Item 2" to Nothing
		Get ComAddItem of hoItems "Item 3" to Nothing
	Send Destroy to hoItems
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Percent" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComFormatColumn of hoColumn to "((dbl(value) * 100) format '2|,|3.')+'%'"
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems 0.5 to Nothing
		Get ComAddItem of hoItems 0.4 to Nothing
		Get ComAddItem of hoItems 0.75 to Nothing
	Send Destroy to hoItems
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComScrollBySingleLine to True
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Task" to Nothing
	Send Destroy to hoColumns
	Set ComDrawGridLines to OLEexHLines
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComDrawGridLines of hoChart to OLEexHLines
		Set ComAllowCreateBar of hoChart to OLEexCreateBarAuto
		Set ComAllowLinkBars of hoChart to False
		Set ComResizeUnitScale of hoChart to OLEexHour
		Set ComPaneWidth of hoChart False to 48
		Set ComFirstVisibleDate of hoChart to "1/1/2001"
		Variant voBars
		Get ComBars of hoChart to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComItem of hoBars "Task" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComOverlaidType of hoBar to (OLEexOverlaidBarsStackAutoArrange + OLEexOverlaidBarsStack)
				Set ComOverlaid of hoBar OLEexOverlaidBarsTransparent to 0
			Send Destroy to hoBar
		Send Destroy to hoBars
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Task 1" to h
		Send ComAddBar of hoItems h "Task" "1/2/2001" "1/4/2001" "A1" Nothing
		Set ComItemBar of hoItems h "A1" OLEexBarTransparent to 80
		Send ComAddBar of hoItems h "Task" "1/3/2001" "1/5/2001" "A2" Nothing
		Send ComAddBar of hoItems h "Task" "1/4/2001" "1/7/2001" "A3" Nothing
		Get ComAddItem of hoItems "Task 2" to h
		Send ComAddBar of hoItems h "Task" "1/7/2001" "1/10/2001" "A1" Nothing
		Send ComAddBar of hoItems h "Task" "1/8/2001" "1/12/2001" "A3" Nothing
		Set ComItemBar of hoItems h "A3" OLEexBarTransparent to 50
	Send Destroy to hoItems
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComLinesAtRoot to OLEexGroupLinesOutside
	Set ComIndent to 12
	Set ComHasLines to OLEexThinLine
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Default" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Root 1" to h
		Get ComInsertItem of hoItems h "Child 1" to Nothing
		Get ComInsertItem of hoItems h "Child 2" to Nothing
		Get ComInsertItem of hoItems h "Child 3" to Nothing
		Set ComExpandItem of hoItems h to True
		Get ComAddItem of hoItems "Root 2" to h
		Get ComInsertItem of hoItems h "Child 1" to Nothing
		Get ComInsertItem of hoItems h "Child 2" to Nothing
		Get ComInsertItem of hoItems h "Child 3" to Nothing
	Send Destroy to hoItems
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComLinesAtRoot to OLEexGroupLinesAtRoot
	Set ComIndent to 12
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Default" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Root" to h
		Get ComInsertItem of hoItems h "Child 1" to Nothing
		Get ComInsertItem of hoItems h "Child 2" to Nothing
		Get ComInsertItem of hoItems h "Child 3" to Nothing
		Set ComExpandItem of hoItems h to True
	Send Destroy to hoItems
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComLinesAtRoot to OLEexGroupLinesOutside
	Set ComIndent to 12
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Default" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Root 1" to h
		Get ComInsertItem of hoItems h "Child 1" to Nothing
		Get ComInsertItem of hoItems h "Child 2" to Nothing
		Get ComInsertItem of hoItems h "Child 3" to Nothing
		Set ComExpandItem of hoItems h to True
		Get ComAddItem of hoItems "Root 2" to h
		Get ComInsertItem of hoItems h "Child 1" to Nothing
		Get ComInsertItem of hoItems h "Child 2" to Nothing
		Get ComInsertItem of hoItems h "Child 3" to Nothing
	Send Destroy to hoItems
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComLinesAtRoot to OLEexGroupLinesInsideLeaf
	Set ComIndent to 12
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Default" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Root" to h
		Get ComInsertItem of hoItems h "Child 1" to Nothing
		Get ComInsertItem of hoItems h "Child 2" to Nothing
		Get ComInsertItem of hoItems h "Child 3" to Nothing
		Set ComExpandItem of hoItems h to True
	Send Destroy to hoItems
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComLinesAtRoot to OLEexGroupLinesInside
	Set ComIndent to 12
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Default" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Root" to h
		Get ComInsertItem of hoItems h "Child 1" to Nothing
		Get ComInsertItem of hoItems h "Child 2" to Nothing
		Get ComInsertItem of hoItems h "Child 3" to Nothing
		Set ComExpandItem of hoItems h to True
	Send Destroy to hoItems
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComLinesAtRoot to OLEexGroupLines
	Set ComIndent to 12
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Default" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Root" to h
		Get ComInsertItem of hoItems h "Child 1" to Nothing
		Get ComInsertItem of hoItems (ComInsertItem(hoItems,h,"Child 2")) "SubChild 2" to Nothing
		Get ComInsertItem of hoItems h "Child 3" to Nothing
		Set ComExpandItem of hoItems h to True
	Send Destroy to hoItems
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComAdjustLevelsToBase of hoChart to True
		Set ComPaneWidth of hoChart False to 0
		Set ComFirstVisibleDate of hoChart to "12/24/2010"
		Set ComFirstWeekDay of hoChart to OLEexMonday
		Set ComLevelCount of hoChart to 2
		Set ComNonworkingDays of hoChart to 0
		Send ComAddNonworkingDate of hoChart "shortdateF(value) left 5 in ('01/01','01/06','04/25','05/01','06/02','08/15','11/01','12/08','12/25','12/26')"
	Send Destroy to hoChart
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComAdjustLevelsToBase of hoChart to True
		Set ComPaneWidth of hoChart False to 0
		Set ComFirstVisibleDate of hoChart to "4/14/2011"
		Set ComFirstWeekDay of hoChart to OLEexMonday
		Set ComLevelCount of hoChart to 2
		Set ComNonworkingDays of hoChart to 0
		Send ComAddNonworkingDate of hoChart "not(month(value) in (3,4,5)) ? 0 : ( floor(value)=(2:=floor(date(dateS('3/1/' + year(value)) + ((1:=(((255 - 11 * (year(value) mod 19)) - 21) mod 30) + 21) + (=:1 > 48 ? -1 : 0) + 6 - ((year(value) + int(year(value) / 4)) + =:1 + (=:1 > 48 ? -1 : 0) + 1) mod 7)))) or (floor(value)= =:2 + 1))"
	Send Destroy to hoChart
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart True to 0
	Send Destroy to hoChart
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Year" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Variant voEditor
			Get ComEditor of hoColumn to voEditor
			Handle hoEditor
			Get Create (RefClass(cComEditor)) to hoEditor
			Set pvComObject of hoEditor to voEditor
				Set ComEditType of hoEditor to OLESpinType
				Set ComNumeric of hoEditor to OLEexInteger
			Send Destroy to hoEditor
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Variant voColumn1
		Get ComAdd of hoColumns1 "Easter" to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Set ComComputedField of hoColumn1 to "date(dateS('3/1/' + int(%0)) + ((1:=(((255 - 11 * (int(%0) mod 19)) - 21) mod 30) + 21) + (=:1 > 48 ? -1 : 0) + 6 - ((int(%0) + int(int(%0) / 4)) + =:1 + (=:1 > 48 ? -1 : 0) + 1) mod 7))"
		Send Destroy to hoColumn1
	Send Destroy to hoColumns1
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems 2008 to Nothing
		Get ComAddItem of hoItems 2009 to Nothing
		Get ComAddItem of hoItems 2010 to Nothing
		Get ComAddItem of hoItems 2011 to Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComAdjustLevelsToBase of hoChart to True
		Set ComPaneWidth of hoChart False to 0
		Set ComFirstVisibleDate of hoChart to "4/14/2011"
		Set ComFirstWeekDay of hoChart to OLEexMonday
		Set ComLevelCount of hoChart to 2
		Set ComNonworkingDays of hoChart to 0
		Send ComAddNonworkingDate of hoChart "month(value) = 7"
		Send ComAddNonworkingDate of hoChart "not(month(value) in (3,4)) ? 0 : ( floor(value)=floor(date(dateS('3/1/' + year(value)) + ((1:=(((255 - 11 * (year(value) mod 19)) - 21) mod 30) + 21) + (=:1 > 48 ? -1 : 0) + 6 - ((year(value) + int(year(value) / 4)) + =:1 + (=:1 > 48 ? -1 : 0) + 1) mod 7))))"
	Send Destroy to hoChart
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart False to 0
		Set ComFirstVisibleDate of hoChart to "1/1/2010"
		Set ComFirstWeekDay of hoChart to OLEexMonday
		Set ComLevelCount of hoChart to 2
		Send ComAddNonworkingDate of hoChart "1/13/2010"
		Send ComAddNonworkingDate of hoChart "month(value) = 1 and (day(value) in (1,6))"
	Send Destroy to hoChart
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Easter" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComFormatColumn of hoColumn to "date(dateS('3/1/' + year(value))  + ((1:=(((255 - 11 * (year(value) mod 19)) - 21) mod 30) + 21) + (=:1 > 48 ? -1 : 0) + 6 - ((year(value) + int(year(value) / 4)) + =:1 + (=:1 > 48 ? -1 : 0) + 1) mod 7))"
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems "1/1/1989" to Nothing
		Get ComAddItem of hoItems "1/1/2001" to Nothing
		Get ComAddItem of hoItems "1/1/2002" to Nothing
		Get ComAddItem of hoItems "1/1/2003" to Nothing
		Get ComAddItem of hoItems "1/1/2010" to Nothing
	Send Destroy to hoItems
End_Procedure

// Occurs when the user presses and then releases the left mouse button over the tree control.
Procedure OnComClick 
	Forward Send OnComClick 
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Showln "UnitCount:" (ComCountVisibleUnits(hoChart,(ComDateFromPoint(hoChart,0,-1)),(ComDateFromPoint(hoChart,1,-1))))
	Send Destroy to hoChart
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Variant voChart1
	Get ComChart to voChart1
	Handle hoChart1
	Get Create (RefClass(cComChart)) to hoChart1
	Set pvComObject of hoChart1 to voChart1
		Set ComPaneWidth of hoChart1 False to 0
		Set ComFirstVisibleDate of hoChart1 to "1/1/2010"
		Set ComLevelCount of hoChart1 to 2
	Send Destroy to hoChart1
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Variant voBars
		Get ComBars of hoChart to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComAdd of hoBars "Task:Split" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComShortcut of hoBar to "Task"
			Send Destroy to hoBar
		Send Destroy to hoBars
	Send Destroy to hoChart
	Set ComDrawGridLines to OLEexHLines
	Variant voChart1
	Get ComChart to voChart1
	Handle hoChart1
	Get Create (RefClass(cComChart)) to hoChart1
	Set pvComObject of hoChart1 to voChart1
		Set ComDrawGridLines of hoChart1 to OLEexAllLines
		Set ComPaneWidth of hoChart1 False to 128
		Set ComLevelCount of hoChart1 to 3
		Set ComUnitScale of hoChart1 to OLEexHour
		Set ComUnitWidth of hoChart1 to 16
		Set ComDrawLevelSeparator of hoChart1 to False
		Variant voLevel
		Get ComLevel of hoChart1 2 to voLevel
		Handle hoLevel
		Get Create (RefClass(cComLevel)) to hoLevel
		Set pvComObject of hoLevel to voLevel
			Set ComUnit of hoLevel to OLEexMinute
			Set ComCount of hoLevel to 60
		Send Destroy to hoLevel
		Set ComAllowCreateBar of hoChart1 to OLEexCreateBarAuto
		Set ComResizeUnitScale of hoChart1 to OLEexMinute
		Set ComResizeUnitCount of hoChart1 to 15
		Set ComAllowInsideZoom of hoChart1 to True
		Variant voInsideZoomFormat
		Get ComDefaultInsideZoomFormat of hoChart1 to voInsideZoomFormat
		Handle hoInsideZoomFormat
		Get Create (RefClass(cComInsideZoomFormat)) to hoInsideZoomFormat
		Set pvComObject of hoInsideZoomFormat to voInsideZoomFormat
			Set ComInsideUnit of hoInsideZoomFormat to OLEexMinute
			Set ComInsideCount of hoInsideZoomFormat to 15
			Set ComInsideLabel of hoInsideZoomFormat to "<%nn%>"
			Set ComOwnerLabel of hoInsideZoomFormat to "Hour: <b><%h%>"
			Set ComDrawGridLines of hoInsideZoomFormat to True
		Send Destroy to hoInsideZoomFormat
		Variant voInsideZooms
		Get ComInsideZooms of hoChart1 to voInsideZooms
		Handle hoInsideZooms
		Get Create (RefClass(cComInsideZooms)) to hoInsideZooms
		Set pvComObject of hoInsideZooms to voInsideZooms
			Get ComAdd of hoInsideZooms "1/1/2010 12:00:00 PM" to Nothing
		Send Destroy to hoInsideZooms
		Variant voInsideZooms1
		Get ComInsideZooms of hoChart1 to voInsideZooms1
		Handle hoInsideZooms1
		Get Create (RefClass(cComInsideZooms)) to hoInsideZooms1
		Set pvComObject of hoInsideZooms1 to voInsideZooms1
			Get ComAdd of hoInsideZooms1 "1/1/2010 1:00:00 PM" to Nothing
		Send Destroy to hoInsideZooms1
		Set ComFirstVisibleDate of hoChart1 to "1/1/2010 9:00:00 AM"
	Send Destroy to hoChart1
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Non-Working" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComDef of hoColumn OLEexCellSingleLine to False
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "12:30 to 14:00 Monday to Thursday, 12:30 to 13:30 on Friday" to h
		Set ComItemNonworkingUnits of hoItems h False to "weekday(value) case (default:((timeF(value)>="12:30:00" and timeF(value) <="14:00:00" ));5:( timeF(value)>="12:30:00" and timeF(value) <="13:30:00" );6:1;0:1) "
		Get ComAddItem of hoItems "10:45 to 13:45 Monday to Thursday, 10:45 to 14:30 on Friday" to h
		Set ComItemNonworkingUnits of hoItems h False to "weekday(value) case (default:((timeF(value)>="10:45:00" and timeF(value) <="13:45:00" ));5:( timeF(value)>="10:45:00" and timeF(value) <="14:30:00" );6:1;0:1) "
		Get ComAddItem of hoItems "2:30 to 9:30 on Friday, Saturday and Sunday" to h
		Set ComItemNonworkingUnits of hoItems h False to "weekday(value) case (default:((timeF(value)>="02:30:00" and timeF(value) <="09:30:00" ));1:0;2:0;3:0;4:0) "
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Variant voBars
		Get ComBars of hoChart to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComAdd of hoBars "Task:Split" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComShortcut of hoBar to "Task"
			Send Destroy to hoBar
		Send Destroy to hoBars
	Send Destroy to hoChart
	Set ComDrawGridLines to OLEexHLines
	Variant voChart1
	Get ComChart to voChart1
	Handle hoChart1
	Get Create (RefClass(cComChart)) to hoChart1
	Set pvComObject of hoChart1 to voChart1
		Set ComDrawGridLines of hoChart1 to OLEexHLines
		Set ComPaneWidth of hoChart1 False to 128
		Set ComFirstVisibleDate of hoChart1 to "1/1/2010"
		Set ComLevelCount of hoChart1 to 2
		Set ComUnitScale of hoChart1 to OLEexHour
		Set ComUnitWidth of hoChart1 to 16
		Set ComDrawLevelSeparator of hoChart1 to False
		Variant voLevel
		Get ComLevel of hoChart1 1 to voLevel
		Handle hoLevel
		Get Create (RefClass(cComLevel)) to hoLevel
		Set pvComObject of hoLevel to voLevel
			Set ComUnit of hoLevel to OLEexMinute
			Set ComCount of hoLevel to 60
		Send Destroy to hoLevel
		Set ComAllowCreateBar of hoChart1 to OLEexCreateBarAuto
		Set ComResizeUnitScale of hoChart1 to OLEexMinute
		Set ComResizeUnitCount of hoChart1 to 15
	Send Destroy to hoChart1
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Non-Working" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComDef of hoColumn OLEexCellSingleLine to False
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "12:30 to 14:00 Monday to Thursday, 12:30 to 13:30 on Friday" to h
		Set ComItemNonworkingUnits of hoItems h False to "weekday(value) case (default:((timeF(value)>="12:30:00" and timeF(value) <="14:00:00" ));5:( timeF(value)>="12:30:00" and timeF(value) <="13:30:00" );6:1;0:1) "
		Get ComAddItem of hoItems "10:45 to 13:45 Monday to Thursday, 10:45 to 14:30 on Friday" to h
		Set ComItemNonworkingUnits of hoItems h False to "weekday(value) case (default:((timeF(value)>="10:45:00" and timeF(value) <="13:45:00" ));5:( timeF(value)>="10:45:00" and timeF(value) <="14:30:00" );6:1;0:1) "
		Get ComAddItem of hoItems "2:30 to 9:30 on Friday, Saturday and Sunday" to h
		Set ComItemNonworkingUnits of hoItems h False to "weekday(value) case (default:((timeF(value)>="02:30:00" and timeF(value) <="09:30:00" ));1:0;2:0;3:0;4:0) "
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Tasks" to Nothing
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Variant voColumn
		Get ComAdd of hoColumns1 "Start" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComVisible of hoColumn to False
		Send Destroy to hoColumn
	Send Destroy to hoColumns1
	Variant voColumns2
	Get ComColumns to voColumns2
	Handle hoColumns2
	Get Create (RefClass(cComColumns)) to hoColumns2
	Set pvComObject of hoColumns2 to voColumns2
		Variant voColumn1
		Get ComAdd of hoColumns2 "End" to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Set ComVisible of hoColumn1 to False
		Send Destroy to hoColumn1
	Send Destroy to hoColumns2
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "9/20/2006"
		Set ComPaneWidth of hoChart False to 64
		Variant voBars
		Get ComBars of hoChart to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComCopy of hoBars "Progress" "ProgressT" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComColor of hoBar to (RGB(255,0,0))
				Set ComShape of hoBar to OLEexShapeSolid
				Set ComHeight of hoBar to 7
			Send Destroy to hoBar
		Send Destroy to hoBars
		Variant voBars1
		Get ComBars of hoChart to voBars1
		Handle hoBars1
		Get Create (RefClass(cComBars)) to hoBars1
		Set pvComObject of hoBars1 to voBars1
			Variant voBar1
			Get ComAdd of hoBars1 "Task%ProgressT:Split" to voBar1
			Handle hoBar1
			Get Create (RefClass(cComBar)) to hoBar1
			Set pvComObject of hoBar1 to voBar1
				Set ComShortcut of hoBar1 to "Task"
			Send Destroy to hoBar1
		Send Destroy to hoBars1
		Variant voBars2
		Get ComBars of hoChart to voBars2
		Handle hoBars2
		Get Create (RefClass(cComBars)) to hoBars2
		Set pvComObject of hoBars2 to voBars2
			Variant voBar2
			Get ComItem of hoBars2 "Progress" to voBar2
			Handle hoBar2
			Get Create (RefClass(cComBar)) to hoBar2
			Set pvComObject of hoBar2 to voBar2
				Set ComColor of hoBar2 to (RGB(0,0,255))
				Set ComShape of hoBar2 to OLEexShapeSolidUp
			Send Destroy to hoBar2
		Send Destroy to hoBars2
		Variant voBars3
		Get ComBars of hoChart to voBars3
		Handle hoBars3
		Get Create (RefClass(cComBars)) to hoBars3
		Set pvComObject of hoBars3 to voBars3
			Variant voBar3
			Get ComAdd of hoBars3 "Summary%Progress" to voBar3
			Handle hoBar3
			Get Create (RefClass(cComBar)) to hoBar3
			Set pvComObject of hoBar3 to voBar3
				Set ComShortcut of hoBar3 to "Summary"
			Send Destroy to hoBar3
		Send Destroy to hoBars3
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Project" to h
		Set ComItemHeight of hoItems h to 16
		Set ComCellValue of hoItems h 1 to "9/21/2006"
		Set ComCellValue of hoItems h 2 to "10/3/2006"
		Send ComAddBar of hoItems h "Summary" (ComCellValue(hoItems,h,1)) (ComCellValue(hoItems,h,2)) "sum" Nothing
		Set ComItemBar of hoItems h "sum" OLEexBarPercent to 0.4
		Set ComItemBar of hoItems h "sum" OLEexBarShowPercentCaption to true
		Variant h1
		Get ComInsertItem of hoItems h "Task 1" to h1
		Set ComCellValue of hoItems h1 1 to (ComCellValue(hoItems,h,1))
		Set ComCellValue of hoItems h1 2 to "9/27/2006"
		Send ComAddBar of hoItems h1 "Task" (ComCellValue(hoItems,h1,1)) (ComCellValue(hoItems,h1,2)) "K1" Nothing
		Set ComItemBar of hoItems h1 "K1" OLEexBarPercent to 0.6
		Set ComItemBar of hoItems h1 "K1" OLEexBarShowPercentCaption to true
		Variant h2
		Get ComInsertItem of hoItems h "Task 2" to h2
		Set ComCellValue of hoItems h2 1 to (ComCellValue(hoItems,h1,2))
		Set ComCellValue of hoItems h2 2 to "9/28/2006"
		Send ComAddBar of hoItems h2 "Unknown" (ComCellValue(hoItems,h2,1)) (ComCellValue(hoItems,h2,2)) "K2" Nothing
		Send ComAddLink of hoItems "L1" h1 "K1" h2 "K2"
		Variant h3
		Get ComInsertItem of hoItems h "Task 3" to h3
		Set ComCellValue of hoItems h3 1 to (ComCellValue(hoItems,h2,2))
		Set ComCellValue of hoItems h3 2 to (ComCellValue(hoItems,h,2))
		Send ComAddBar of hoItems h3 "Task" (ComCellValue(hoItems,h3,1)) (ComCellValue(hoItems,h3,2)) "K3" Nothing
		Set ComItemBar of hoItems h3 "K3" OLEexBarPercent to 0.65
		Set ComItemBar of hoItems h3 "K3" OLEexBarShowPercentCaption to true
		Set ComItemBar of hoItems h3 "K3" OLEexBarPercentColor to 32768
		Send ComAddLink of hoItems "L2" h2 "K2" h3 "K3"
		Send ComGroupBars of hoItems h1 "K1" False h2 "K2" True 31 "0;4"
		Send ComGroupBars of hoItems h2 "K2" False h3 "K3" True 31 "0;2"
		Send ComDefineSummaryBars of hoItems h "sum" h1 "K1"
		Send ComDefineSummaryBars of hoItems h "sum" h2 "K2"
		Send ComDefineSummaryBars of hoItems h "sum" h3 "K3"
		Set ComExpandItem of hoItems h to True
		Set ComItemBold of hoItems h to True
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Task" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComLevelCount of hoChart to 2
		Set ComPaneWidth of hoChart False to 64
		Set ComFirstVisibleDate of hoChart to "1/1/2001"
		Variant voBars
		Get ComBars of hoChart to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComItem of hoBars "Progress" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComColor of hoBar to (RGB(0,0,255))
				Set ComShape of hoBar to OLEexShapeSolidUp
			Send Destroy to hoBar
		Send Destroy to hoBars
		Variant voBars1
		Get ComBars of hoChart to voBars1
		Handle hoBars1
		Get Create (RefClass(cComBars)) to hoBars1
		Set pvComObject of hoBars1 to voBars1
			Variant voBar1
			Get ComAdd of hoBars1 "Summary%Progress" to voBar1
			Handle hoBar1
			Get Create (RefClass(cComBar)) to hoBar1
			Set pvComObject of hoBar1 to voBar1
				Set ComShortcut of hoBar1 to "SummaryP"
			Send Destroy to hoBar1
		Send Destroy to hoBars1
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Summary" to h
		Send ComAddBar of hoItems h "SummaryP" "1/2/2001" "1/6/2001" "K1" Nothing
		Set ComItemBar of hoItems h "K1" OLEexBarPercent to 0.4
		Set ComItemBar of hoItems h "K1" OLEexBarShowPercentCaption to true
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Task" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart False to 48
		Set ComFirstVisibleDate of hoChart to "1/1/2001"
		Variant voBars
		Get ComBars of hoChart to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComItem of hoBars "Progress" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComShape of hoBar to OLEexShapeSolid
				Set ComHeight of hoBar to 7
				Set ComColor of hoBar to (RGB(0,0,255))
			Send Destroy to hoBar
		Send Destroy to hoBars
		Variant voBars1
		Get ComBars of hoChart to voBars1
		Handle hoBars1
		Get Create (RefClass(cComBars)) to hoBars1
		Set pvComObject of hoBars1 to voBars1
			Variant voBar1
			Get ComAdd of hoBars1 "Task%Progress" to voBar1
			Handle hoBar1
			Get Create (RefClass(cComBar)) to hoBar1
			Set pvComObject of hoBar1 to voBar1
				Set ComShortcut of hoBar1 to "Percent"
			Send Destroy to hoBar1
		Send Destroy to hoBars1
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Task 1" to h
		Send ComAddBar of hoItems h "Percent" "1/2/2001" "1/6/2001" "K1" Nothing
		Set ComItemBar of hoItems h "K1" OLEexBarPercent to 0.5
		Set ComItemBar of hoItems h "K1" OLEexBarShowPercentCaption to True
		Set ComItemBar of hoItems h "K1" OLEexBarVAlignPercent to 2
		Get ComAddItem of hoItems "Task 2" to h
		Send ComAddBar of hoItems h "Percent" "1/3/2001" "1/9/2001" "K2" Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Task" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart False to 48
		Set ComFirstVisibleDate of hoChart to "1/1/2001"
		Variant voBars
		Get ComBars of hoChart to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComItem of hoBars "Progress" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComShape of hoBar to OLEexShapeSolid
				Set ComHeight of hoBar to 7
			Send Destroy to hoBar
		Send Destroy to hoBars
		Variant voBars1
		Get ComBars of hoChart to voBars1
		Handle hoBars1
		Get Create (RefClass(cComBars)) to hoBars1
		Set pvComObject of hoBars1 to voBars1
			Get ComAdd of hoBars1 "Task%Progress" to Nothing
		Send Destroy to hoBars1
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Task 1" to h
		Send ComAddBar of hoItems h "Task%Progress" "1/2/2001" "1/6/2001" "K1" Nothing
		Set ComItemBar of hoItems h "K1" OLEexBarPercent to 0.5
		Set ComItemBar of hoItems h "K1" OLEexBarShowPercentCaption to True
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Task" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart False to 48
		Set ComFirstVisibleDate of hoChart to "1/1/2001"
		Variant voBars
		Get ComBars of hoChart to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComItem of hoBars "Progress" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComPattern of hoBar to OLEexPatternBDiagonal
				Set ComShape of hoBar to OLEexShapeSolid
				Set ComColor of hoBar to (RGB(196,0,0))
			Send Destroy to hoBar
		Send Destroy to hoBars
		Variant voBars1
		Get ComBars of hoChart to voBars1
		Handle hoBars1
		Get Create (RefClass(cComBars)) to hoBars1
		Set pvComObject of hoBars1 to voBars1
			Get ComAdd of hoBars1 "Task%Progress" to Nothing
		Send Destroy to hoBars1
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Task 1" to h
		Send ComAddBar of hoItems h "Task%Progress" "1/2/2001" "1/6/2001" "K1" Nothing
		Set ComItemBar of hoItems h "K1" OLEexBarPercent to 0.4
		Set ComItemBar of hoItems h "K1" OLEexBarShowPercentCaption to True
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "c:\exontrol\images\hot.ebn" to Nothing
	Send Destroy to hoAppearance
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Task" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "1/1/2001"
		Variant voBars
		Get ComBars of hoChart to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComItem of hoBars "Progress" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComColor of hoBar to |CI$1000000
				Set ComShape of hoBar to OLEexShapeSolid
				Set ComHeight of hoBar to 7
			Send Destroy to hoBar
		Send Destroy to hoBars
		Variant voBars1
		Get ComBars of hoChart to voBars1
		Handle hoBars1
		Get Create (RefClass(cComBars)) to hoBars1
		Set pvComObject of hoBars1 to voBars1
			Get ComAdd of hoBars1 "Task%Progress" to Nothing
		Send Destroy to hoBars1
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Task 1" to h
		Send ComAddBar of hoItems h "Task%Progress" "1/2/2001" "1/6/2001" "K1" Nothing
		Set ComItemBar of hoItems h "K1" OLEexBarPercent to 0.4
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComDefaultItemHeight to 32
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Task" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart False to 64
		Set ComFirstVisibleDate of hoChart to "1/1/2001"
		Variant voBars
		Get ComBars of hoChart to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComItem of hoBars "Task" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComHeight of hoBar to 28
			Send Destroy to hoBar
		Send Destroy to hoBars
		Variant voBars1
		Get ComBars of hoChart to voBars1
		Handle hoBars1
		Get Create (RefClass(cComBars)) to hoBars1
		Set pvComObject of hoBars1 to voBars1
			Variant voBar1
			Get ComAdd of hoBars1 "Task%Progress" to voBar1
			Handle hoBar1
			Get Create (RefClass(cComBar)) to hoBar1
			Set pvComObject of hoBar1 to voBar1
				Set ComShortcut of hoBar1 to "Percent"
			Send Destroy to hoBar1
		Send Destroy to hoBars1
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Task 1" to h
		Send ComAddBar of hoItems h "Percent" "1/2/2001" "1/14/2001" "K1" "text inside"
		Set ComItemBar of hoItems h "K1" OLEexBarVAlignCaption to 0
		Set ComItemBar of hoItems h "K1" OLEexBarPercent to 0.75
		Set ComItemBar of hoItems h "K1" OLEexBarShowPercentCaption to True
		Set ComItemBar of hoItems h "K1" OLEexBarPercentCaptionFormat to "%p%"
		Set ComItemBar of hoItems h "K1" OLEexBarVAlignPercent to 2
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComDefaultItemHeight to 32
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Task" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart False to 64
		Set ComFirstVisibleDate of hoChart to "1/1/2001"
		Variant voBars
		Get ComBars of hoChart to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComItem of hoBars "Task" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComHeight of hoBar to 28
			Send Destroy to hoBar
			Variant voBar1
			Get ComItem of hoBars "Progress" to voBar1
			Handle hoBar1
			Get Create (RefClass(cComBar)) to hoBar1
			Set pvComObject of hoBar1 to voBar1
				Set ComShape of hoBar1 to OLEexShapeThinDown
				Set ComHeight of hoBar1 to 20
				Set ComColor of hoBar1 to (RGB(0,0,255))
			Send Destroy to hoBar1
			Variant voBar2
			Get ComAdd of hoBars "Task%Progress" to voBar2
			Handle hoBar2
			Get Create (RefClass(cComBar)) to hoBar2
			Set pvComObject of hoBar2 to voBar2
				Set ComShortcut of hoBar2 to "Percent"
			Send Destroy to hoBar2
		Send Destroy to hoBars
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Task 1" to h
		Send ComAddBar of hoItems h "Percent" "1/2/2001" "1/14/2001" "K1" "text inside"
		Set ComItemBar of hoItems h "K1" OLEexBarVAlignCaption to 0
		Set ComItemBar of hoItems h "K1" OLEexBarPercent to 0.75
		Set ComItemBar of hoItems h "K1" OLEexBarShowPercentCaption to True
		Set ComItemBar of hoItems h "K1" OLEexBarPercentCaptionFormat to "<br>%p%"
		Set ComItemBar of hoItems h "K1" OLEexBarAlignPercentCaption to 1
		Set ComItemBar of hoItems h "K1" OLEexBarCanResizePercent to False
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Task" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "1/1/2001"
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Task 1" to h
		Set ComItemHeight of hoItems h to 32
		Send ComAddBar of hoItems h "Task" "1/2/2001" "1/6/2001" "K1" Nothing
		Set ComItemBar of hoItems h "K1" OLEexBarCaption to "Line1<br>Line2"
	Send Destroy to hoItems
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComHTMLPicture "pic1" to "c:\exontrol\images\zipdisk.gif"
	Set ComToolTipDelay to 1
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "tootip" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComToolTip of hoColumn to "<font Tahoma;20>This</font> is a <b>multi-lines</b> tooltip assigned to a column. The tooltip supports built-in HTML tags, icons and pictures.<br><img>pic1</img> picture ..."
		Send Destroy to hoColumn
	Send Destroy to hoColumns
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Task" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComLevelCount of hoChart to 2
		Set ComFirstVisibleDate of hoChart to "12/26/2000"
		Set ComPaneWidth of hoChart False to 32
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h1
		Get ComAddItem of hoItems "Task 1" to h1
		Send ComAddBar of hoItems h1 "" "1/1/2001" "1/5/2001" "K1" "some <fgcolor=FF0000>red</fgcolor> text"
		Set ComItemBar of hoItems h1 "K1" OLEexBarCanResize to False
		Set ComItemBar of hoItems h1 "K1" OLEexBarToolTip to "And here goes the <b>tooltip</b> of the text. "
		Get ComAddItem of hoItems "" to Nothing
		Get ComAddItem of hoItems "" to Nothing
		Get ComAddItem of hoItems "" to Nothing
		Get ComAddItem of hoItems "" to Nothing
		Variant h2
		Get ComAddItem of hoItems "Task 2" to h2
		Send ComAddBar of hoItems h2 "Task" "1/5/2001" "1/7/2001" "K2" Nothing
		Set ComItemBar of hoItems h2 "K2" OLEexBarToolTip to "And here goes the <b>tooltip</b> of the bar. "
		Send ComAddLink of hoItems "L1" h1 "K1" h2 "K2"
		Set ComLink of hoItems "L1" OLEexLinkText to "L<b>inke</b>d to a bar"
		Set ComLink of hoItems "L1" OLEexLinkToolTip to "And here goes the <b>tooltip</b> of the link. "
	Send Destroy to hoItems
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComLabel of hoChart OLEexMonth to "<|><%loc_m1%><|><%loc_m2%><|><%loc_m3%><|><%loc_mmmm%><|><%loc_m3%> '<%yy%><|><%loc_mmmm%> <%yyyy%>"
		Set ComLabel of hoChart OLEexWeek to "<|><%ww%><|><%loc_m3%> <%d%>, '<%yy%><r><%ww%><|><%loc_mmmm%> <%d%>, <%yyyy%><r><%ww%><||><||>256"
		Set ComLabel of hoChart OLEexDay to "<|><%loc_d1%><|><%loc_d2%><|><%loc_d3%><|><%loc_dddd%><|><%loc_d3%>, <%loc_m3%> <%d%>, '<%yy%><|><%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%><||><||>4096"
		Set ComLabel of hoChart OLEexHour to "<|><%hh%><|><%h%> <%AM/PM%><|><%loc_d3%>, <%loc_m3%> <%d%>, '<%yy%> <%h%> <%AM/PM%><|><%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%> <%AM/PM%><||><||>65536"
		Set ComLabel of hoChart OLEexMinute to "<|><%nn%><|><%h%>:<%nn%> <%AM/PM%><|><%loc_d3%>, <%loc_m3%> <%d%>, '<%yy%> <%h%>:<%nn%> <%AM/PM%><|><%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%>:<%nn%> <%AM/PM%>"
		Set ComLabel of hoChart OLEexSecond to "<|><%ss%><|><%nn%>:<%ss%><|><%h%>:<%nn%>:<%ss%> <%AM/PM%><|><%loc_d3%>, <%loc_m3%> <%d%>, '<%yy%> <%h%>:<%nn%>:<%ss%> <%AM/PM%><|><%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%>:<%nn%>:<%ss%> <%AM/PM%>"
		Set ComLabelToolTip of hoChart OLEexMonth to "<%loc_mmmm%>/<%yyyy%>"
		Set ComLabelToolTip of hoChart OLEexWeek to "<%loc_mmmm%> <%d%>, <%yyyy%> <%ww%>"
		Set ComLabelToolTip of hoChart OLEexDay to "<%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%>"
		Set ComLabelToolTip of hoChart OLEexHour to "<%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%> <%AM/PM%>"
		Set ComLabelToolTip of hoChart OLEexMinute to "<%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%>:<%nn%> <%AM/PM%>"
		Set ComLabelToolTip of hoChart OLEexSecond to "<%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%>:<%nn%>:<%ss%> <%AM/PM%>"
	Send Destroy to hoChart
	Variant voChart1
	Get ComChart to voChart1
	Handle hoChart1
	Get Create (RefClass(cComChart)) to hoChart1
	Set pvComObject of hoChart1 to voChart1
		Set ComPaneWidth of hoChart1 False to 0
		Set ComFirstVisibleDate of hoChart1 to "1/1/2001"
		Set ComLevelCount of hoChart1 to 4
		Variant voLevel
		Get ComLevel of hoChart1 0 to voLevel
		Handle hoLevel
		Get Create (RefClass(cComLevel)) to hoLevel
		Set pvComObject of hoLevel to voLevel
			Set ComLabel of hoLevel to 4096
		Send Destroy to hoLevel
		Variant voLevel1
		Get ComLevel of hoChart1 1 to voLevel1
		Handle hoLevel1
		Get Create (RefClass(cComLevel)) to hoLevel1
		Set pvComObject of hoLevel1 to voLevel1
			Set ComLabel of hoLevel1 to 65536
		Send Destroy to hoLevel1
		Variant voLevel2
		Get ComLevel of hoChart1 2 to voLevel2
		Handle hoLevel2
		Get Create (RefClass(cComLevel)) to hoLevel2
		Set pvComObject of hoLevel2 to voLevel2
			Set ComLabel of hoLevel2 to 1048576
		Send Destroy to hoLevel2
		Variant voLevel3
		Get ComLevel of hoChart1 3 to voLevel3
		Handle hoLevel3
		Get Create (RefClass(cComLevel)) to hoLevel3
		Set pvComObject of hoLevel3 to voLevel3
			Set ComCount of hoLevel3 to 15
			Set ComLabel of hoLevel3 to 16777216
		Send Destroy to hoLevel3
	Send Destroy to hoChart1
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComLabel of hoChart OLEexMonth to "<|><%loc_m1%><|><%loc_m2%><|><%loc_m3%><|><%loc_mmmm%><|><%loc_m3%> '<%yy%><|><%loc_mmmm%> <%yyyy%>"
		Set ComLabel of hoChart OLEexWeek to "<|><%ww%><|><%loc_m3%> <%d%>, '<%yy%><r><%ww%><|><%loc_mmmm%> <%d%>, <%yyyy%><r><%ww%><||><||>256"
		Set ComLabel of hoChart OLEexDay to "<|><%loc_d1%><|><%loc_d2%><|><%loc_d3%><|><%loc_dddd%><|><%loc_d3%>, <%loc_m3%> <%d%>, '<%yy%><|><%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%><||><||>4096"
		Set ComLabel of hoChart OLEexHour to "<|><%hh%><|><%h%> <%AM/PM%><|><%loc_d3%>, <%loc_m3%> <%d%>, '<%yy%> <%h%> <%AM/PM%><|><%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%> <%AM/PM%><||><||>65536"
		Set ComLabel of hoChart OLEexMinute to "<|><%nn%><|><%h%>:<%nn%> <%AM/PM%><|><%loc_d3%>, <%loc_m3%> <%d%>, '<%yy%> <%h%>:<%nn%> <%AM/PM%><|><%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%>:<%nn%> <%AM/PM%>"
		Set ComLabel of hoChart OLEexSecond to "<|><%ss%><|><%nn%>:<%ss%><|><%h%>:<%nn%>:<%ss%> <%AM/PM%><|><%loc_d3%>, <%loc_m3%> <%d%>, '<%yy%> <%h%>:<%nn%>:<%ss%> <%AM/PM%><|><%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%>:<%nn%>:<%ss%> <%AM/PM%>"
		Set ComLabelToolTip of hoChart OLEexMonth to "<%loc_mmmm%>/<%yyyy%>"
		Set ComLabelToolTip of hoChart OLEexWeek to "<%loc_mmmm%> <%d%>, <%yyyy%> <%ww%>"
		Set ComLabelToolTip of hoChart OLEexDay to "<%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%>"
		Set ComLabelToolTip of hoChart OLEexHour to "<%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%> <%AM/PM%>"
		Set ComLabelToolTip of hoChart OLEexMinute to "<%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%>:<%nn%> <%AM/PM%>"
		Set ComLabelToolTip of hoChart OLEexSecond to "<%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%>:<%nn%>:<%ss%> <%AM/PM%>"
	Send Destroy to hoChart
	Variant voChart1
	Get ComChart to voChart1
	Handle hoChart1
	Get Create (RefClass(cComChart)) to hoChart1
	Set pvComObject of hoChart1 to voChart1
		Set ComPaneWidth of hoChart1 False to 0
		Set ComFirstVisibleDate of hoChart1 to "1/1/2001"
		Set ComLevelCount of hoChart1 to 2
		Set ComUnitScale of hoChart1 to OLEexDay
	Send Destroy to hoChart1
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart False to 0
		Set ComFirstVisibleDate of hoChart to "1/1/2001"
		Set ComLevelCount of hoChart to 4
		Variant voLevel
		Get ComLevel of hoChart 0 to voLevel
		Handle hoLevel
		Get Create (RefClass(cComLevel)) to hoLevel
		Set pvComObject of hoLevel to voLevel
			Set ComLabel of hoLevel to 4096
		Send Destroy to hoLevel
		Variant voLevel1
		Get ComLevel of hoChart 1 to voLevel1
		Handle hoLevel1
		Get Create (RefClass(cComLevel)) to hoLevel1
		Set pvComObject of hoLevel1 to voLevel1
			Set ComLabel of hoLevel1 to 65536
		Send Destroy to hoLevel1
		Variant voLevel2
		Get ComLevel of hoChart 2 to voLevel2
		Handle hoLevel2
		Get Create (RefClass(cComLevel)) to hoLevel2
		Set pvComObject of hoLevel2 to voLevel2
			Set ComLabel of hoLevel2 to 1048576
		Send Destroy to hoLevel2
		Variant voLevel3
		Get ComLevel of hoChart 3 to voLevel3
		Handle hoLevel3
		Get Create (RefClass(cComLevel)) to hoLevel3
		Set pvComObject of hoLevel3 to voLevel3
			Set ComCount of hoLevel3 to 15
			Set ComLabel of hoLevel3 to 16777216
		Send Destroy to hoLevel3
	Send Destroy to hoChart
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart False to 32
		Set ComLevelCount of hoChart to 2
		Set ComFirstVisibleDate of hoChart to "1/1/2008"
		Set ComAllowInsideZoom of hoChart to True
		Set ComAllowResizeInsideZoom of hoChart to True
		Set ComInsideZoomOnDblClick of hoChart to False
		Variant voInsideZoomFormat
		Get ComDefaultInsideZoomFormat of hoChart to voInsideZoomFormat
		Handle hoInsideZoomFormat
		Get Create (RefClass(cComInsideZoomFormat)) to hoInsideZoomFormat
		Set pvComObject of hoInsideZoomFormat to voInsideZoomFormat
			Set ComOwnerLabel of hoInsideZoomFormat to "<%d%>"
			Set ComInsideLabel of hoInsideZoomFormat to ""
			Set ComInsideUnit of hoInsideZoomFormat to OLEexHour
			Set ComInsideCount of hoInsideZoomFormat to 24
			Set ComDrawTickLines of hoInsideZoomFormat to False
			Set ComDrawGridLines of hoInsideZoomFormat to False
		Send Destroy to hoInsideZoomFormat
		Variant voInsideZooms
		Get ComInsideZooms of hoChart to voInsideZooms
		Handle hoInsideZooms
		Get Create (RefClass(cComInsideZooms)) to hoInsideZooms
		Set pvComObject of hoInsideZooms to voInsideZooms
			Set ComSplitBaseLevel of hoInsideZooms to False
			Set ComDefaultWidth of hoInsideZooms to 18
		Send Destroy to hoInsideZooms
	Send Destroy to hoChart
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Default" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task")) "Task" "1/3/2008" "1/8/2008" Nothing Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart False to 32
		Set ComLevelCount of hoChart to 2
		Set ComFirstVisibleDate of hoChart to "1/1/2008"
		Set ComAllowInsideZoom of hoChart to True
		Set ComAllowResizeInsideZoom of hoChart to True
		Set ComInsideZoomOnDblClick of hoChart to False
		Variant voInsideZoomFormat
		Get ComDefaultInsideZoomFormat of hoChart to voInsideZoomFormat
		Handle hoInsideZoomFormat
		Get Create (RefClass(cComInsideZoomFormat)) to hoInsideZoomFormat
		Set pvComObject of hoInsideZoomFormat to voInsideZoomFormat
			Set ComOwnerLabel of hoInsideZoomFormat to "<%d%>"
			Set ComInsideLabel of hoInsideZoomFormat to ""
			Set ComDrawTickLines of hoInsideZoomFormat to False
			Set ComDrawGridLines of hoInsideZoomFormat to False
		Send Destroy to hoInsideZoomFormat
		Variant voInsideZooms
		Get ComInsideZooms of hoChart to voInsideZooms
		Handle hoInsideZooms
		Get Create (RefClass(cComInsideZooms)) to hoInsideZooms
		Set pvComObject of hoInsideZooms to voInsideZooms
			Set ComSplitBaseLevel of hoInsideZooms to False
			Set ComDefaultWidth of hoInsideZooms to 18
		Send Destroy to hoInsideZooms
	Send Destroy to hoChart
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Default" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task")) "Task" "1/3/2008" "1/8/2008" Nothing Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Tasks" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComAllowUndoRedo of hoChart to True
		Set ComFirstVisibleDate of hoChart to "6/20/2005"
		Set ComAllowLinkBars of hoChart to True
		Set ComLevelCount of hoChart to 2
		Set ComPaneWidth of hoChart False to 48
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 1")) "Task" "6/21/2005" "6/25/2005" "" Nothing
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 2")) "Task" "6/28/2005" "7/2/2005" "" Nothing
		Variant v
			Variant voChart1
			Get ComChart to voChart1
			Handle hoChart1
			Get Create (RefClass(cComChart)) to hoChart1
			Set pvComObject of hoChart1 to voChart1
				Get ComUndoListAction of hoChart1 Nothing Nothing to v
			Send Destroy to hoChart1
		Showln v
		Showln "Clear undo/redo queue"
			Variant voChart2
			Get ComChart to voChart2
			Handle hoChart2
			Get Create (RefClass(cComChart)) to hoChart2
			Set pvComObject of hoChart2 to voChart2
				Set ComAllowUndoRedo of hoChart2 to False
			Send Destroy to hoChart2
			Variant voChart3
			Get ComChart to voChart3
			Handle hoChart3
			Get Create (RefClass(cComChart)) to hoChart3
			Set pvComObject of hoChart3 to voChart3
				Set ComAllowUndoRedo of hoChart3 to True
			Send Destroy to hoChart3
		Variant v1
			Variant voChart4
			Get ComChart to voChart4
			Handle hoChart4
			Get Create (RefClass(cComChart)) to hoChart4
			Set pvComObject of hoChart4 to voChart4
				Get ComUndoListAction of hoChart4 Nothing Nothing to v1
			Send Destroy to hoChart4
		Showln v1
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Tasks" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComAllowUndoRedo of hoChart to True
		Set ComFirstVisibleDate of hoChart to "6/20/2005"
		Set ComAllowLinkBars of hoChart to True
		Set ComLevelCount of hoChart to 2
		Set ComPaneWidth of hoChart False to 48
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 1")) "Task" "6/21/2005" "6/25/2005" "" Nothing
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 2")) "Task" "6/28/2005" "7/2/2005" "" Nothing
		Variant v
			Variant voChart1
			Get ComChart to voChart1
			Handle hoChart1
			Get Create (RefClass(cComChart)) to hoChart1
			Set pvComObject of hoChart1 to voChart1
				Get ComUndoListAction of hoChart1 Nothing Nothing to v
			Send Destroy to hoChart1
		Showln v
		Showln "Clear undo/redo queue"
			Variant voChart2
			Get ComChart to voChart2
			Handle hoChart2
			Get Create (RefClass(cComChart)) to hoChart2
			Set pvComObject of hoChart2 to voChart2
				Send ComUndoRemoveAction of hoChart2 Nothing Nothing
			Send Destroy to hoChart2
			Variant voChart3
			Get ComChart to voChart3
			Handle hoChart3
			Get Create (RefClass(cComChart)) to hoChart3
			Set pvComObject of hoChart3 to voChart3
				Send ComRedoRemoveAction of hoChart3 Nothing Nothing
			Send Destroy to hoChart3
		Variant v1
			Variant voChart4
			Get ComChart to voChart4
			Handle hoChart4
			Get Create (RefClass(cComChart)) to hoChart4
			Set pvComObject of hoChart4 to voChart4
				Get ComUndoListAction of hoChart4 Nothing Nothing to v1
			Send Destroy to hoChart4
		Showln v1
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

// Occurs when the user links two bars using the mouse.
Procedure OnComAddLink String   llLinkKey
	Forward Send OnComAddLink llLinkKey
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Send ComRemoveLink of hoItems llLinkKey
	Send Destroy to hoItems
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Send ComUndoRemoveAction of hoChart 10 1
	Send Destroy to hoChart
	Variant voChart1
	Get ComChart to voChart1
	Handle hoChart1
	Get Create (RefClass(cComChart)) to hoChart1
	Set pvComObject of hoChart1 to voChart1
		Send ComUndoRemoveAction of hoChart1 11 1
	Send Destroy to hoChart1
	Variant v
	Variant voChart2
	Get ComChart to voChart2
	Handle hoChart2
	Get Create (RefClass(cComChart)) to hoChart2
	Set pvComObject of hoChart2 to voChart2
		Get ComUndoListAction of hoChart2 Nothing Nothing to v
	Send Destroy to hoChart2
	Showln v
End_Procedure

// Occurs after the chart has been changed.
Procedure OnComChartEndChanging OLEBarOperationEnum   llOperation
	Forward Send OnComChartEndChanging llOperation
	Variant v1
	Variant voChart3
	Get ComChart to voChart3
	Handle hoChart3
	Get Create (RefClass(cComChart)) to hoChart3
	Set pvComObject of hoChart3 to voChart3
		Get ComUndoListAction of hoChart3 Nothing Nothing to v1
	Send Destroy to hoChart3
	Showln v1
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Tasks" to Nothing
	Send Destroy to hoColumns
	Variant voChart4
	Get ComChart to voChart4
	Handle hoChart4
	Get Create (RefClass(cComChart)) to hoChart4
	Set pvComObject of hoChart4 to voChart4
		Set ComAllowUndoRedo of hoChart4 to True
		Set ComFirstVisibleDate of hoChart4 to "6/20/2005"
		Set ComAllowLinkBars of hoChart4 to True
		Set ComLevelCount of hoChart4 to 2
		Set ComPaneWidth of hoChart4 False to 48
	Send Destroy to hoChart4
	Variant voItems1
	Get ComItems to voItems1
	Handle hoItems1
	Get Create (RefClass(cComItems)) to hoItems1
	Set pvComObject of hoItems1 to voItems1
		Send ComAddBar of hoItems1 (ComAddItem(hoItems1,"Task 1")) "Task" "6/21/2005" "6/25/2005" "" Nothing
		Send ComAddBar of hoItems1 (ComAddItem(hoItems1,"Task 2")) "Task" "6/28/2005" "7/2/2005" "" Nothing
	Send Destroy to hoItems1
	Send ComEndUpdate
End_Procedure

// Occurs when the user links two bars using the mouse.
Procedure OnComAddLink String   llLinkKey
	Forward Send OnComAddLink llLinkKey
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComLink of hoItems llLinkKey OLEexLinkKey to "newIDlink"
	Send Destroy to hoItems
End_Procedure

// Occurs when the user moves the mouse.
Procedure OnComMouseMove Short   llButton Short   llShift OLE_XPOS_PIXELS   llX OLE_YPOS_PIXELS   llY
	Forward Send OnComMouseMove llButton llShift llX llY
	Variant v
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Get ComLinkFromPoint of hoChart -1 -1 to v
	Send Destroy to hoChart
	Showln v
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Tasks" to Nothing
	Send Destroy to hoColumns
	Variant voChart1
	Get ComChart to voChart1
	Handle hoChart1
	Get Create (RefClass(cComChart)) to hoChart1
	Set pvComObject of hoChart1 to voChart1
		Set ComFirstVisibleDate of hoChart1 to "6/20/2005"
		Set ComAllowLinkBars of hoChart1 to True
		Set ComLevelCount of hoChart1 to 2
		Set ComPaneWidth of hoChart1 False to 48
	Send Destroy to hoChart1
	Variant voItems1
	Get ComItems to voItems1
	Handle hoItems1
	Get Create (RefClass(cComItems)) to hoItems1
	Set pvComObject of hoItems1 to voItems1
		Send ComAddBar of hoItems1 (ComAddItem(hoItems1,"Task 1")) "Task" "6/21/2005" "6/25/2005" "" Nothing
		Send ComAddBar of hoItems1 (ComAddItem(hoItems1,"Task 2")) "Task" "6/28/2005" "7/2/2005" "" Nothing
	Send Destroy to hoItems1
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "gBFLBCJwBAEHhEJAEGg4BI0IQAAYAQGKIYBkAKBQAGaAoDDUOQzQwAAxDKKUEwsACEIrjKCYVgOHYYRrIMYgBCMJhLEoaZLhEZRQiqDYtRDFQBSDDcPw/EaRZohGaYJgEgI=" to Nothing
	Send Destroy to hoAppearance
	Set ComBackground OLEexCursorHoverColumn to |CI$1000000
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "S" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComWidth of hoColumn to 32
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Variant voColumn1
		Get ComAdd of hoColumns1 "Level 1" to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Set ComLevelKey of hoColumn1 to 1
		Send Destroy to hoColumn1
	Send Destroy to hoColumns1
	Variant voColumns2
	Get ComColumns to voColumns2
	Handle hoColumns2
	Get Create (RefClass(cComColumns)) to hoColumns2
	Set pvComObject of hoColumns2 to voColumns2
		Variant voColumn2
		Get ComAdd of hoColumns2 "Level 2" to voColumn2
		Handle hoColumn2
		Get Create (RefClass(cComColumn)) to hoColumn2
		Set pvComObject of hoColumn2 to voColumn2
			Set ComLevelKey of hoColumn2 to 1
		Send Destroy to hoColumn2
	Send Destroy to hoColumns2
	Variant voColumns3
	Get ComColumns to voColumns3
	Handle hoColumns3
	Get Create (RefClass(cComColumns)) to hoColumns3
	Set pvComObject of hoColumns3 to voColumns3
		Variant voColumn3
		Get ComAdd of hoColumns3 "Level 3" to voColumn3
		Handle hoColumn3
		Get Create (RefClass(cComColumn)) to hoColumn3
		Set pvComObject of hoColumn3 to voColumn3
			Set ComLevelKey of hoColumn3 to 1
		Send Destroy to hoColumn3
	Send Destroy to hoColumns3
	Variant voColumns4
	Get ComColumns to voColumns4
	Handle hoColumns4
	Get Create (RefClass(cComColumns)) to hoColumns4
	Set pvComObject of hoColumns4 to voColumns4
		Variant voColumn4
		Get ComAdd of hoColumns4 "E1" to voColumn4
		Handle hoColumn4
		Get Create (RefClass(cComColumn)) to hoColumn4
		Set pvComObject of hoColumn4 to voColumn4
			Set ComWidth of hoColumn4 to 32
		Send Destroy to hoColumn4
	Send Destroy to hoColumns4
	Variant voColumns5
	Get ComColumns to voColumns5
	Handle hoColumns5
	Get Create (RefClass(cComColumns)) to hoColumns5
	Set pvComObject of hoColumns5 to voColumns5
		Variant voColumn5
		Get ComAdd of hoColumns5 "E2" to voColumn5
		Handle hoColumn5
		Get Create (RefClass(cComColumn)) to hoColumn5
		Set pvComObject of hoColumn5 to voColumn5
			Set ComWidth of hoColumn5 to 32
		Send Destroy to hoColumn5
	Send Destroy to hoColumns5
	Variant voColumns6
	Get ComColumns to voColumns6
	Handle hoColumns6
	Get Create (RefClass(cComColumns)) to hoColumns6
	Set pvComObject of hoColumns6 to voColumns6
		Variant voColumn6
		Get ComAdd of hoColumns6 "E3" to voColumn6
		Handle hoColumn6
		Get Create (RefClass(cComColumn)) to hoColumn6
		Set pvComObject of hoColumn6 to voColumn6
			Set ComWidth of hoColumn6 to 32
		Send Destroy to hoColumn6
	Send Destroy to hoColumns6
	Variant voColumns7
	Get ComColumns to voColumns7
	Handle hoColumns7
	Get Create (RefClass(cComColumns)) to hoColumns7
	Set pvComObject of hoColumns7 to voColumns7
		Variant voColumn7
		Get ComAdd of hoColumns7 "E4" to voColumn7
		Handle hoColumn7
		Get Create (RefClass(cComColumn)) to hoColumn7
		Set pvComObject of hoColumn7 to voColumn7
			Set ComWidth of hoColumn7 to 32
		Send Destroy to hoColumn7
	Send Destroy to hoColumns7
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Default" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Root" to h
		Variant hC
		Get ComInsertItem of hoItems h "Child 1" to hC
			Variant voChart
			Get ComChart to voChart
			Handle hoChart
			Get Create (RefClass(cComChart)) to hoChart
			Set pvComObject of hoChart to voChart
				Set ComItemBackColor of hoChart hC to (RGB(255,0,0))
			Send Destroy to hoChart
		Get ComInsertItem of hoItems h "Child 2" to Nothing
		Set ComExpandItem of hoItems h to True
	Send Destroy to hoItems
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
	Send Destroy to hoAppearance
	Variant voAppearance1
	Get ComVisualAppearance to voAppearance1
	Handle hoAppearance1
	Get Create (RefClass(cComAppearance)) to hoAppearance1
	Set pvComObject of hoAppearance1 to voAppearance1
		Get ComAdd of hoAppearance1 2 "c:\exontrol\images\pushed.ebn" to Nothing
	Send Destroy to hoAppearance1
	Variant voAppearance2
	Get ComVisualAppearance to voAppearance2
	Handle hoAppearance2
	Get Create (RefClass(cComAppearance)) to hoAppearance2
	Set pvComObject of hoAppearance2 to voAppearance2
		Get ComAdd of hoAppearance2 3 "CP:2 2 2 -2 -2" to Nothing
	Send Destroy to hoAppearance2
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Default" to Nothing
	Send Destroy to hoColumns
	Set ComSelBackMode to OLEexTransparent
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Root" to h
		Variant hC
		Get ComInsertItem of hoItems h "Child 1" to hC
		Set ComItemBackColor of hoItems hC to |CI$1ffff00
			Variant voChart
			Get ComChart to voChart
			Handle hoChart
			Get Create (RefClass(cComChart)) to hoChart
			Set pvComObject of hoChart to voChart
				Set ComItemBackColor of hoChart hC to |CI$300ff00
			Send Destroy to hoChart
		Get ComInsertItem of hoItems h "Child 2" to Nothing
		Set ComExpandItem of hoItems h to True
	Send Destroy to hoItems
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
	Send Destroy to hoAppearance
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Default" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Root" to h
		Variant hC
		Get ComInsertItem of hoItems h "Child 1" to hC
		Set ComItemBackColor of hoItems hC to |CI$1000000
			Variant voChart
			Get ComChart to voChart
			Handle hoChart
			Get Create (RefClass(cComChart)) to hoChart
			Set pvComObject of hoChart to voChart
				Set ComItemBackColor of hoChart hC to |CI$1000000
			Send Destroy to hoChart
		Get ComInsertItem of hoItems h "Child 2" to Nothing
		Set ComExpandItem of hoItems h to True
	Send Destroy to hoItems
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Default" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Root" to h
		Variant hC
		Get ComInsertItem of hoItems h "Child 1" to hC
		Set ComItemBackColor of hoItems hC to (RGB(255,0,0))
			Variant voChart
			Get ComChart to voChart
			Handle hoChart
			Get Create (RefClass(cComChart)) to hoChart
			Set pvComObject of hoChart to voChart
				Set ComItemBackColor of hoChart hC to (RGB(255,255,0))
			Send Destroy to hoChart
		Get ComInsertItem of hoItems h "Child 2" to Nothing
		Set ComExpandItem of hoItems h to True
	Send Destroy to hoItems
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Default" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Root" to h
		Variant hC
		Get ComInsertItem of hoItems h "Child 1" to hC
		Set ComItemBackColor of hoItems hC to (RGB(255,0,0))
			Variant voChart
			Get ComChart to voChart
			Handle hoChart
			Get Create (RefClass(cComChart)) to hoChart
			Set pvComObject of hoChart to voChart
				Set ComItemBackColor of hoChart hC to (RGB(255,0,0))
			Send Destroy to hoChart
		Get ComInsertItem of hoItems h "Child 2" to Nothing
		Set ComExpandItem of hoItems h to True
	Send Destroy to hoItems
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComScrollBySingleLine to True
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Task" to Nothing
	Send Destroy to hoColumns
	Set ComDrawGridLines to OLEexHLines
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComOverlaidOnMoving of hoChart to False
		Set ComDrawGridLines of hoChart to OLEexHLines
		Set ComAllowCreateBar of hoChart to OLEexCreateBarAuto
		Set ComAllowLinkBars of hoChart to False
		Set ComResizeUnitScale of hoChart to OLEexHour
		Set ComPaneWidth of hoChart False to 48
		Set ComFirstVisibleDate of hoChart to "1/1/2001"
		Variant voBars
		Get ComBars of hoChart to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComItem of hoBars "Task" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComOverlaidType of hoBar to (OLEexOverlaidBarsStackAutoArrange + OLEexOverlaidBarsStack)
			Send Destroy to hoBar
		Send Destroy to hoBars
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems "" to Nothing
		Variant h
		Get ComAddItem of hoItems "Task" to h
		Send ComAddBar of hoItems h "Task" "1/7/2001" "1/10/2001" "A1" Nothing
		Send ComAddBar of hoItems h "Task" "1/8/2001" "1/12/2001" "A3" Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart True to 0
	Send Destroy to hoChart
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Def" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComDef of hoColumn OLEexCellValueFormat to 1
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems 100000.27 to h
		Set ComFormatCell of hoItems h 0 to "(value format '') +  ' <fgcolor=808080>(default positive)'"
		Get ComAddItem of hoItems 100000.27 to h
		Set ComFormatCell of hoItems h 0 to "(value format '2|.|3|,|1|1')"
		Get ComAddItem of hoItems -100000.27 to h
		Set ComFormatCell of hoItems h 0 to "(value format '') +  ' <fgcolor=808080>(default negative)'"
		Get ComAddItem of hoItems -100000.27 to h
		Set ComFormatCell of hoItems h 0 to "(value format '2|.|3|,|1|1')"
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart True to 0
	Send Destroy to hoChart
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Def" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComDef of hoColumn OLEexCellValueFormat to 1
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems 0.27 to h
		Set ComFormatCell of hoItems h 0 to "(value format '') +  ' <fgcolor=808080>(default)'"
		Get ComAddItem of hoItems 0.27 to h
		Set ComFormatCell of hoItems h 0 to "(value format '|||||0') +  ' <fgcolor=808080>(Display no leading zeros)'"
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart True to 0
	Send Destroy to hoChart
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Def" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComDef of hoColumn OLEexCellValueFormat to 1
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems -100000.27 to h
		Set ComFormatCell of hoItems h 0 to "(value format '') +  ' <fgcolor=808080>(default)'"
		Get ComAddItem of hoItems -100000.27 to h
		Set ComFormatCell of hoItems h 0 to "(value format '||||1') +  ' <fgcolor=808080>(Negative sign, number; for example, -1.1)'"
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart True to 0
	Send Destroy to hoChart
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Def" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComDef of hoColumn OLEexCellValueFormat to 1
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems 100000.27 to h
		Set ComFormatCell of hoItems h 0 to "(value format '') +  ' <fgcolor=808080>(default)'"
		Get ComAddItem of hoItems 100000.27 to h
		Set ComFormatCell of hoItems h 0 to "(value format '|||-') +  ' <fgcolor=808080>(grouping character is -)'"
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart True to 0
	Send Destroy to hoChart
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Def" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComDef of hoColumn OLEexCellValueFormat to 1
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems 100000.27 to h
		Set ComFormatCell of hoItems h 0 to "(value format '') +  ' <fgcolor=808080>(default)'"
		Get ComAddItem of hoItems 100000.27 to h
		Set ComFormatCell of hoItems h 0 to "(value format '||2') +  ' <fgcolor=808080>(grouping by 2 digits)'"
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart True to 0
	Send Destroy to hoChart
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Def" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComDef of hoColumn OLEexCellValueFormat to 1
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems 100.27 to h
		Set ComFormatCell of hoItems h 0 to "(value format '') +  ' <fgcolor=808080>(default)'"
		Get ComAddItem of hoItems 100.27 to h
		Set ComFormatCell of hoItems h 0 to "(value format '|;') +  ' <fgcolor=808080>(decimal separator is <b>;</b>)'"
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart True to 0
	Send Destroy to hoChart
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Def" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComDef of hoColumn OLEexCellValueFormat to 1
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems 100.27 to h
		Set ComFormatCell of hoItems h 0 to "(value format '') +  ' <fgcolor=808080>(default)'"
		Get ComAddItem of hoItems 100.27 to h
		Set ComFormatCell of hoItems h 0 to "(value format '3') +  ' <fgcolor=808080>(3 digits)'"
		Get ComAddItem of hoItems 100.27 to h
		Set ComFormatCell of hoItems h 0 to "(value format 2) +  '  <fgcolor=808080>(2 digits)'"
		Get ComAddItem of hoItems 100.27 to h
		Set ComFormatCell of hoItems h 0 to "(value format 1) +  ' <fgcolor=808080>(1 digit)'"
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComMarkSearchColumn to False
	Set ComSelBackColor to (ComBackColor(Self))
	Set ComSelForeColor to (ComForeColor(Self))
	Set ComShowFocusRect to True
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart True to 0
	Send Destroy to hoChart
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Name" to Nothing
		Variant voColumn
		Get ComAdd of hoColumns "A" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComSortType of hoColumn to OLESortNumeric
			Set ComAllowSizing of hoColumn to False
			Set ComWidth of hoColumn to 36
			Set ComFormatColumn of hoColumn to "len(value) ? value + ' +'"
			Variant voEditor
			Get ComEditor of hoColumn to voEditor
			Handle hoEditor
			Get Create (RefClass(cComEditor)) to hoEditor
			Set pvComObject of hoEditor to voEditor
				Set ComEditType of hoEditor to OLESpinType
			Send Destroy to hoEditor
		Send Destroy to hoColumn
		Variant voColumn1
		Get ComAdd of hoColumns "B" to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Set ComSortType of hoColumn1 to OLESortNumeric
			Set ComAllowSizing of hoColumn1 to False
			Set ComWidth of hoColumn1 to 36
			Set ComFormatColumn of hoColumn1 to "len(value) ? value + ' +'"
			Variant voEditor1
			Get ComEditor of hoColumn1 to voEditor1
			Handle hoEditor1
			Get Create (RefClass(cComEditor)) to hoEditor1
			Set pvComObject of hoEditor1 to voEditor1
				Set ComEditType of hoEditor1 to OLESpinType
			Send Destroy to hoEditor1
		Send Destroy to hoColumn1
		Variant voColumn2
		Get ComAdd of hoColumns "C" to voColumn2
		Handle hoColumn2
		Get Create (RefClass(cComColumn)) to hoColumn2
		Set pvComObject of hoColumn2 to voColumn2
			Set ComSortType of hoColumn2 to OLESortNumeric
			Set ComAllowSizing of hoColumn2 to False
			Set ComWidth of hoColumn2 to 36
			Set ComFormatColumn of hoColumn2 to "len(value) ? value + ' ='"
			Variant voEditor2
			Get ComEditor of hoColumn2 to voEditor2
			Handle hoEditor2
			Get Create (RefClass(cComEditor)) to hoEditor2
			Set pvComObject of hoEditor2 to voEditor2
				Set ComEditType of hoEditor2 to OLESpinType
			Send Destroy to hoEditor2
		Send Destroy to hoColumn2
		Variant voColumn3
		Get ComAdd of hoColumns "A+B+C" to voColumn3
		Handle hoColumn3
		Get Create (RefClass(cComColumn)) to hoColumn3
		Set pvComObject of hoColumn3 to voColumn3
			Set ComSortType of hoColumn3 to OLESortNumeric
			Set ComWidth of hoColumn3 to 64
			Set ComComputedField of hoColumn3 to "dbl(%1)+dbl(%2)+dbl(%3)"
			Set ComFormatColumn of hoColumn3 to "type(value) in (0,1) ? 'null' : ( dbl(value)<0 ? '<fgcolor=FF0000>'+ (value format '2|.|3|,|1' ) : (dbl(value)>0 ? '<fgcolor=0000FF>+'+(value format '2|.|3|,' ): '0.00') )"
			Set ComDef of hoColumn3 OLEexCellValueFormat to 1
		Send Destroy to hoColumn3
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Root" to h
		Set ComCellValueFormat of hoItems h 4 to OLEexComputedField
		Variant h1
		Get ComInsertItem of hoItems h "Child 1" to h1
		Set ComCellValue of hoItems h1 1 to 7
		Set ComCellValue of hoItems h1 2 to 3
		Set ComCellValue of hoItems h1 3 to 1
		Get ComInsertItem of hoItems h "Child 2" to h1
		Set ComCellValue of hoItems h1 1 to -2
		Set ComCellValue of hoItems h1 2 to -2
		Set ComCellValue of hoItems h1 3 to -4
		Get ComInsertItem of hoItems h "Child 3" to h1
		Set ComCellValue of hoItems h1 1 to 2
		Set ComCellValue of hoItems h1 2 to 2
		Set ComCellValue of hoItems h1 3 to -4
		Set ComExpandItem of hoItems h to True
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

// Occurs when the user moves the mouse.
Procedure OnComMouseMove Short   llButton Short   llShift OLE_XPOS_PIXELS   llX OLE_YPOS_PIXELS   llY
	Forward Send OnComMouseMove llButton llShift llX llY
	Variant vToolTip
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Get ComBarFromPoint of hoChart -1 -1 to vToolTip
	Send Destroy to hoChart
	Send ComShowToolTip vToolTip "" 2 "4" "-4"
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Def" to Nothing
	Send Destroy to hoColumns
	Variant voChart1
	Get ComChart to voChart1
	Handle hoChart1
	Get Create (RefClass(cComChart)) to hoChart1
	Set pvComObject of hoChart1 to voChart1
		Set ComAllowCreateBar of hoChart1 to OLEexNoCreateBar
		Set ComPaneWidth of hoChart1 False to 64
		Set ComLevelCount of hoChart1 to 2
		Set ComFirstVisibleDate of hoChart1 to "1/1/2010"
	Send Destroy to hoChart1
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Task" to h
		Send ComAddBar of hoItems h "Task" "1/2/2010" "1/5/2010" "A" "A"
		Send ComAddBar of hoItems h "Task" "1/5/2010" "1/8/2010" "B" "B"
		Send ComAddBar of hoItems h "Task" "1/8/2010" "1/11/2010" "C" "C"
		Send ComGroupBars of hoItems h "A" False h "B" True 39 Nothing
		Send ComGroupBars of hoItems h "B" False h "C" True 39 Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComColumnAutoResize to False
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "A" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComWidth of hoColumn to 128
		Send Destroy to hoColumn
		Variant voColumn1
		Get ComAdd of hoColumns "B" to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Set ComWidth of hoColumn1 to 128
		Send Destroy to hoColumn1
	Send Destroy to hoColumns
	Set ComDrawGridLines to OLEexAllLines
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Def" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComAllowCreateBar of hoChart to OLEexNoCreateBar
		Set ComPaneWidth of hoChart False to 64
		Set ComLevelCount of hoChart to 2
		Set ComFirstVisibleDate of hoChart to "1/1/2010"
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Task" to h
		Send ComAddBar of hoItems h "Task" "1/2/2010" "1/5/2010" "A" "A"
		Send ComAddBar of hoItems h "Task" "1/5/2010" "1/8/2010" "B" "B"
		Send ComAddBar of hoItems h "Task" "1/8/2010" "1/11/2010" "C" "C"
		Send ComGroupBars of hoItems h "A" False h "B" True 39 Nothing
		Send ComGroupBars of hoItems h "B" False h "C" True 39 Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Def" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComAllowCreateBar of hoChart to OLEexNoCreateBar
		Set ComPaneWidth of hoChart False to 64
		Set ComLevelCount of hoChart to 2
		Set ComFirstVisibleDate of hoChart to "1/1/2010"
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Task" to h
		Send ComAddBar of hoItems h "Task" "1/2/2010" "1/5/2010" "A" "A"
		Send ComAddBar of hoItems h "Task" "1/5/2010" "1/8/2010" "B" "B"
		Send ComGroupBars of hoItems h "A" False h "B" True 39 Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart True to 0
	Send Destroy to hoChart
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Value" to Nothing
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Get ComAdd of hoColumns1 "FormatCell" to Nothing
	Send Destroy to hoColumns1
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems 1 to h
		Set ComCellValue of hoItems h 1 to 12
		Set ComFormatCell of hoItems h 1 to "currency(value)"
		Get ComAddItem of hoItems "1/1/2001" to h
		Set ComCellValue of hoItems h 1 to "1/1/2001"
		Set ComCellValueFormat of hoItems h 1 to OLEexHTML
		Set ComFormatCell of hoItems h 1 to "longdate(value) replace '2001' with '<b>2001</b>'"
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComHasLines to OLEexNoLine
	Set ComScrollBySingleLine to True
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart True to 0
	Send Destroy to hoChart
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Name" to Nothing
		Get ComAdd of hoColumns "A" to Nothing
		Get ComAdd of hoColumns "B" to Nothing
		Get ComAdd of hoColumns "C" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Group 1" to h
		Set ComCellHAlignment of hoItems h 0 to OLECenterAlignment
		Set ComItemDivider of hoItems h to 0
		Set ComItemDividerLineAlignment of hoItems h to OLEDividerBoth
		Set ComItemHeight of hoItems h to 24
		Set ComSortableItem of hoItems h to False
		Variant h1
		Get ComInsertItem of hoItems h "Child 1" to h1
		Set ComCellValue of hoItems h1 1 to 1
		Set ComCellValue of hoItems h1 2 to 2
		Set ComCellValue of hoItems h1 3 to 3
		Get ComInsertItem of hoItems h "Child 2" to h1
		Set ComCellValue of hoItems h1 1 to 4
		Set ComCellValue of hoItems h1 2 to 5
		Set ComCellValue of hoItems h1 3 to 6
		Set ComExpandItem of hoItems h to True
		Get ComAddItem of hoItems "Group 2" to h
		Set ComCellHAlignment of hoItems h 0 to OLECenterAlignment
		Set ComItemDivider of hoItems h to 0
		Set ComItemDividerLineAlignment of hoItems h to OLEDividerBoth
		Set ComItemHeight of hoItems h to 24
		Set ComSortableItem of hoItems h to False
		Get ComInsertItem of hoItems h "Child 1" to h1
		Set ComCellValue of hoItems h1 1 to 1
		Set ComCellValue of hoItems h1 2 to 2
		Set ComCellValue of hoItems h1 3 to 3
		Get ComInsertItem of hoItems h "Child 2" to h1
		Set ComCellValue of hoItems h1 1 to 4
		Set ComCellValue of hoItems h1 2 to 5
		Set ComCellValue of hoItems h1 3 to 6
		Set ComExpandItem of hoItems h to True
	Send Destroy to hoItems
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart True to 0
	Send Destroy to hoChart
	Set ComMarkSearchColumn to False
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Name" to Nothing
		Variant voColumn
		Get ComAdd of hoColumns "Values" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComSortType of hoColumn to OLESortNumeric
			Set ComAllowSizing of hoColumn to False
			Set ComWidth of hoColumn to 64
			Set ComFormatColumn of hoColumn to "((0:=dbl(value)) < 10? '<fgcolor=808080><font ;7>' :'<b>') + currency(=:0)"
			Set ComDef of hoColumn OLEexCellValueFormat to 1
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Root" to h
		Set ComFormatCell of hoItems h 1 to "'<none>'"
		Set ComCellValue of hoItems (ComInsertItem(hoItems,h,"Child 1")) 1 to 10
		Set ComCellValue of hoItems (ComInsertItem(hoItems,h,"Child 2")) 1 to 15
		Set ComCellValue of hoItems (ComInsertItem(hoItems,h,"Child 3")) 1 to 25
		Set ComExpandItem of hoItems h to True
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart True to 0
	Send Destroy to hoChart
	Set ComMarkSearchColumn to False
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Name" to Nothing
		Variant voColumn
		Get ComAdd of hoColumns "Values" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComSortType of hoColumn to OLESortNumeric
			Set ComAllowSizing of hoColumn to False
			Set ComWidth of hoColumn to 64
			Set ComFormatColumn of hoColumn to "((0:=dbl(value)) < 10? '<fgcolor=808080><font ;7>' :'<b>') + currency(=:0)"
			Set ComDef of hoColumn OLEexCellValueFormat to 1
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Root" to h
		Set ComFormatCell of hoItems h 1 to " "
		Set ComCellValue of hoItems (ComInsertItem(hoItems,h,"Child 1")) 1 to 10
		Set ComCellValue of hoItems (ComInsertItem(hoItems,h,"Child 2")) 1 to 15
		Set ComCellValue of hoItems (ComInsertItem(hoItems,h,"Child 3")) 1 to 25
		Set ComExpandItem of hoItems h to True
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComTreeColumnIndex to -1
	Set ComDrawGridLines to OLEexAllLines
	Set ComShowFocusRect to False
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Default-Right" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComDef of hoColumn OLEexCellHasCheckBox to True
			Set ComAlignment of hoColumn to OLERightAlignment
			Set ComHeaderAlignment of hoColumn to OLERightAlignment
		Send Destroy to hoColumn
		Variant voColumn1
		Get ComAdd of hoColumns "Custom-Right" to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Set ComDef of hoColumn1 OLEexCellHasCheckBox to True
			Set ComDef of hoColumn1 OLEexCellDrawPartsOrder to "icon,icons,picture,caption,check"
			Set ComHeaderAlignment of hoColumn1 to OLERightAlignment
			Set ComAlignment of hoColumn1 to OLERightAlignment
		Send Destroy to hoColumn1
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems Nothing to Nothing
		Get ComAddItem of hoItems Nothing to Nothing
		Get ComAddItem of hoItems Nothing to Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComMarkSearchColumn to False
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Tasks" to Nothing
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Variant voColumn
		Get ComAdd of hoColumns1 "Start" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComVisible of hoColumn to False
		Send Destroy to hoColumn
	Send Destroy to hoColumns1
	Variant voColumns2
	Get ComColumns to voColumns2
	Handle hoColumns2
	Get Create (RefClass(cComColumns)) to hoColumns2
	Set pvComObject of hoColumns2 to voColumns2
		Variant voColumn1
		Get ComAdd of hoColumns2 "End" to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Set ComVisible of hoColumn1 to False
		Send Destroy to hoColumn1
	Send Destroy to hoColumns2
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "9/20/2006"
		Set ComPaneWidth of hoChart False to 64
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h1
		Get ComAddItem of hoItems "Item 1" to h1
		Set ComCellValue of hoItems h1 1 to "9/21/2006"
		Set ComCellValue of hoItems h1 2 to "9/24/2006"
		Send ComAddBar of hoItems h1 "Task" (ComCellValue(hoItems,h1,1)) (ComCellValue(hoItems,h1,2)) "" Nothing
		Variant h2
		Get ComAddItem of hoItems "Item 2" to h2
		Set ComCellValue of hoItems h2 1 to "9/21/2006"
		Set ComCellValue of hoItems h2 2 to "9/24/2006"
		Send ComAddBar of hoItems h2 "Task" (ComCellValue(hoItems,h2,1)) (ComCellValue(hoItems,h2,2)) "" Nothing
		Send ComGroupBars of hoItems h1 "" True h2 "" True Nothing Nothing
		Send ComGroupBars of hoItems h1 "" False h2 "" False Nothing Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComMarkSearchColumn to False
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Tasks" to Nothing
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Variant voColumn
		Get ComAdd of hoColumns1 "Start" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComVisible of hoColumn to False
		Send Destroy to hoColumn
	Send Destroy to hoColumns1
	Variant voColumns2
	Get ComColumns to voColumns2
	Handle hoColumns2
	Get Create (RefClass(cComColumns)) to hoColumns2
	Set pvComObject of hoColumns2 to voColumns2
		Variant voColumn1
		Get ComAdd of hoColumns2 "End" to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Set ComVisible of hoColumn1 to False
		Send Destroy to hoColumn1
	Send Destroy to hoColumns2
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "9/20/2006"
		Set ComPaneWidth of hoChart False to 64
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h1
		Get ComAddItem of hoItems "Item 1" to h1
		Set ComCellValue of hoItems h1 1 to "9/21/2006"
		Set ComCellValue of hoItems h1 2 to "9/24/2006"
		Send ComAddBar of hoItems h1 "Task" (ComCellValue(hoItems,h1,1)) (ComCellValue(hoItems,h1,2)) "" Nothing
		Variant h2
		Get ComAddItem of hoItems "Item 2" to h2
		Set ComCellValue of hoItems h2 1 to "9/21/2006"
		Set ComCellValue of hoItems h2 2 to "9/24/2006"
		Send ComAddBar of hoItems h2 "Task" (ComCellValue(hoItems,h2,1)) (ComCellValue(hoItems,h2,2)) "" Nothing
		Send ComGroupBars of hoItems h1 "" True h2 "" True 3 Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComScrollBySingleLine to True
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Task" to Nothing
	Send Destroy to hoColumns
	Set ComDrawGridLines to OLEexHLines
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComDrawGridLines of hoChart to OLEexHLines
		Set ComAllowCreateBar of hoChart to OLEexCreateBarAuto
		Set ComAllowLinkBars of hoChart to False
		Set ComResizeUnitScale of hoChart to OLEexHour
		Set ComPaneWidth of hoChart False to 48
		Set ComFirstVisibleDate of hoChart to "1/1/2001"
		Variant voBars
		Get ComBars of hoChart to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComItem of hoBars "Task" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComOverlaidType of hoBar to (OLEexOverlaidBarsIncludeCaption + OLEexOverlaidBarsStackAutoArrange + OLEexOverlaidBarsStack)
				Set ComOverlaidGroup of hoBar to "Milestone"
			Send Destroy to hoBar
		Send Destroy to hoBars
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Task 1" to h
		Send ComAddBar of hoItems h "Task" "1/2/2001" "1/4/2001" "A1" "task"
		Set ComItemBar of hoItems h "A1" OLEexBarHAlignCaption to 18
		Send ComAddBar of hoItems h "Milestone" "1/3/2001" "1/3/2001" "M" "milestone"
		Set ComItemBar of hoItems h "M" OLEexBarHAlignCaption to 18
		Get ComAddItem of hoItems "Task 2" to h
		Send ComAddBar of hoItems h "Task" "1/8/2001" "1/12/2001" "A1" "task"
		Set ComItemBar of hoItems h "A1" OLEexBarHAlignCaption to 18
		Send ComAddBar of hoItems h "Milestone" "1/8/2001" "1/8/2001" "M" "milestone"
		Set ComItemBar of hoItems h "M" OLEexBarHAlignCaption to 18
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComScrollBySingleLine to True
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Task" to Nothing
	Send Destroy to hoColumns
	Set ComDrawGridLines to OLEexHLines
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComDrawGridLines of hoChart to OLEexHLines
		Set ComAllowCreateBar of hoChart to OLEexCreateBarAuto
		Set ComAllowLinkBars of hoChart to False
		Set ComResizeUnitScale of hoChart to OLEexHour
		Set ComPaneWidth of hoChart False to 48
		Set ComFirstVisibleDate of hoChart to "1/1/2001"
		Variant voBars
		Get ComBars of hoChart to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComItem of hoBars "Task" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComOverlaidType of hoBar to (OLEexOverlaidBarsIncludeCaption + OLEexOverlaidBarsStackAutoArrange + OLEexOverlaidBarsStack)
				Set ComOverlaidGroup of hoBar to "Milestone"
			Send Destroy to hoBar
		Send Destroy to hoBars
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Task 1" to h
		Send ComAddBar of hoItems h "Task" "1/2/2001" "1/4/2001" "A1" Nothing
		Send ComAddBar of hoItems h "Milestone" "1/3/2001" "1/3/2001" "M" Nothing
		Get ComAddItem of hoItems "Task 2" to h
		Send ComAddBar of hoItems h "Task" "1/7/2001" "1/10/2001" "A1" Nothing
		Send ComAddBar of hoItems h "Milestone" "1/8/2001" "1/8/2001" "M" Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComScrollBySingleLine to True
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Task" to Nothing
	Send Destroy to hoColumns
	Set ComDrawGridLines to OLEexHLines
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComDrawGridLines of hoChart to OLEexHLines
		Set ComAllowCreateBar of hoChart to OLEexCreateBarAuto
		Set ComAllowLinkBars of hoChart to False
		Set ComResizeUnitScale of hoChart to OLEexHour
		Set ComPaneWidth of hoChart False to 48
		Set ComFirstVisibleDate of hoChart to "1/1/2001"
		Variant voBars
		Get ComBars of hoChart to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComItem of hoBars "Task" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComOverlaidType of hoBar to (OLEexOverlaidBarsStackAutoArrange + OLEexOverlaidBarsStack)
				Set ComOverlaidGroup of hoBar to "Milestone"
			Send Destroy to hoBar
		Send Destroy to hoBars
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Task 1" to h
		Send ComAddBar of hoItems h "Task" "1/2/2001" "1/4/2001" "A1" Nothing
		Send ComAddBar of hoItems h "Milestone" "1/3/2001" "1/3/2001" "M" Nothing
		Get ComAddItem of hoItems "Task 2" to h
		Send ComAddBar of hoItems h "Task" "1/7/2001" "1/10/2001" "A1" Nothing
		Send ComAddBar of hoItems h "Milestone" "1/8/2001" "1/8/2001" "M" Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Date" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComSortType of hoColumn to OLESortDateTime
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Get ComAdd of hoColumns1 "String" to Nothing
	Send Destroy to hoColumns1
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "1/1/2001" to h
		Set ComCellValue of hoItems h 1 to (ComCellValue(hoItems,h,0))
		Get ComAddItem of hoItems "1/11/2001" to h
		Set ComCellValue of hoItems h 1 to (ComCellValue(hoItems,h,0))
		Get ComAddItem of hoItems "1/2/2001" to h
		Set ComCellValue of hoItems h 1 to (ComCellValue(hoItems,h,0))
	Send Destroy to hoItems
	Variant voColumns2
	Get ComColumns to voColumns2
	Handle hoColumns2
	Get Create (RefClass(cComColumns)) to hoColumns2
	Set pvComObject of hoColumns2 to voColumns2
		Variant voColumn1
		Get ComItem of hoColumns2 0 to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Set ComSortOrder of hoColumn1 to OLESortDescending
		Send Destroy to hoColumn1
	Send Destroy to hoColumns2
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComLinesAtRoot to OLEexLinesAtRoot
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Items" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems "A" to Nothing
		Get ComAddItem of hoItems "B" to Nothing
		Get ComInsertItem of hoItems (ComAddItem(hoItems,"C")) "" "D" to Nothing
		Send ComSetParent of hoItems (ComFindItem(hoItems,"D",0,Nothing)) (ComFindItem(hoItems,"A",0,Nothing))
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComLinesAtRoot to OLEexLinesAtRoot
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Items" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems "A" to Nothing
		Get ComAddItem of hoItems "B" to Nothing
		Get ComInsertItem of hoItems (ComAddItem(hoItems,"C")) "" "D" to Nothing
		Send ComSetParent of hoItems (ComFindItem(hoItems,"D",0,Nothing)) 0
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Tasks" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "9/20/2006"
		Set ComPaneWidth of hoChart False to 48
		Set ComLevelCount of hoChart to 2
		Variant voBars
		Get ComBars of hoChart to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComAdd of hoBars "Task:Split" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComShortcut of hoBar to "Task"
			Send Destroy to hoBar
		Send Destroy to hoBars
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h1
		Get ComAddItem of hoItems "Task 1" to h1
		Send ComAddBar of hoItems h1 "Task" "9/26/2006" "9/29/2006" "" "A"
		Set ComItemBar of hoItems h1 "" OLEexBarKeepWorkingCount to True
		Set ComItemBar of hoItems h1 "" OLEexBarCanResize to 4
		Get ComAddItem of hoItems "" to Nothing
		Get ComAddItem of hoItems "" to Nothing
		Get ComAddItem of hoItems "" to Nothing
		Variant h2
		Get ComAddItem of hoItems "Task 2" to h2
		Send ComAddBar of hoItems h2 "Task" "9/26/2006" "9/29/2006" "" "B"
		Set ComItemBar of hoItems h2 "" OLEexBarKeepWorkingCount to True
		Set ComItemBar of hoItems h2 "" OLEexBarCanResize to 4
		Send ComAddLink of hoItems "L1" h1 "" h2 ""
		Set ComLink of hoItems "L1" OLEexLinkStartPos to 2
		Set ComLink of hoItems "L1" OLEexLinkEndPos to 0
		Set ComLink of hoItems "L1" OLEexLinkText to "exPreserveBarLength + exIgnoreOriginalInterval<br>exLimitInterval + exLimitIntervalTreatAsWorking"
		Send ComGroupBars of hoItems h1 "" False h2 "" True 95 "2"
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComLinesAtRoot to OLEexLinesAtRoot
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Items" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Root 1" to h
		Get ComInsertItem of hoItems h "Child 1" to Nothing
		Get ComInsertItem of hoItems h "Child 2" to Nothing
		Get ComAddItem of hoItems "Root 2" to h
		Get ComInsertItem of hoItems h "Child 1" to Nothing
		Get ComInsertItem of hoItems h "Child 2" to Nothing
		Set ComExpandItem of hoItems 0 to False
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComLinesAtRoot to OLEexLinesAtRoot
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Items" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Root 1" to h
		Get ComInsertItem of hoItems h "Child 1" to Nothing
		Get ComInsertItem of hoItems h "Child 2" to Nothing
		Get ComAddItem of hoItems "Root 2" to h
		Get ComInsertItem of hoItems h "Child 1" to Nothing
		Get ComInsertItem of hoItems h "Child 2" to Nothing
		Set ComExpandItem of hoItems 0 to True
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Tasks" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "9/20/2006"
		Set ComPaneWidth of hoChart False to 48
		Set ComLevelCount of hoChart to 2
		Variant voBars
		Get ComBars of hoChart to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComAdd of hoBars "Task:Split" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComShortcut of hoBar to "Task"
			Send Destroy to hoBar
		Send Destroy to hoBars
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h1
		Get ComAddItem of hoItems "Task 1" to h1
		Send ComAddBar of hoItems h1 "Task" "9/26/2006" "9/29/2006" "" "A"
		Get ComAddItem of hoItems "" to Nothing
		Get ComAddItem of hoItems "" to Nothing
		Get ComAddItem of hoItems "" to Nothing
		Variant h2
		Get ComAddItem of hoItems "Task 2" to h2
		Send ComAddBar of hoItems h2 "Task" "9/26/2006" "9/29/2006" "" "B"
		Send ComAddLink of hoItems "L1" h1 "" h2 ""
		Set ComLink of hoItems "L1" OLEexLinkStartPos to 2
		Set ComLink of hoItems "L1" OLEexLinkEndPos to 0
		Set ComLink of hoItems "L1" OLEexLinkText to "exPreserveBarLength + exIgnoreOriginalInterval<br>exLimitInterval+exLimitIntervalTreatAsWorking"
		Send ComGroupBars of hoItems h1 "" False h2 "" True 95 "0;1;5"
		Set ComItemBar of hoItems 0 "<*>" OLEexBarKeepWorkingCount to True
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Tasks" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "9/20/2006"
		Set ComPaneWidth of hoChart False to 48
		Set ComLevelCount of hoChart to 2
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h1
		Get ComAddItem of hoItems "Task 1" to h1
		Send ComAddBar of hoItems h1 "Task" "9/26/2006" "9/29/2006" "" "A"
		Get ComAddItem of hoItems "" to Nothing
		Get ComAddItem of hoItems "" to Nothing
		Get ComAddItem of hoItems "" to Nothing
		Variant h2
		Get ComAddItem of hoItems "Task 2" to h2
		Send ComAddBar of hoItems h2 "Task" "9/26/2006" "9/29/2006" "" "B"
		Send ComAddLink of hoItems "L1" h1 "" h2 ""
		Set ComLink of hoItems "L1" OLEexLinkStartPos to 2
		Set ComLink of hoItems "L1" OLEexLinkEndPos to 0
		Set ComLink of hoItems "L1" OLEexLinkText to "exPreserveBarLength + exIgnoreOriginalInterval + exLimitInterval"
		Send ComGroupBars of hoItems h1 "" False h2 "" True 31 "0;1;7"
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Tasks" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "9/20/2006"
		Set ComPaneWidth of hoChart False to 48
		Set ComLevelCount of hoChart to 2
		Variant voBars
		Get ComBars of hoChart to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComAdd of hoBars "Task:Split" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComShortcut of hoBar to "Task"
			Send Destroy to hoBar
		Send Destroy to hoBars
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h1
		Get ComAddItem of hoItems "Task 1" to h1
		Send ComAddBar of hoItems h1 "Task" "9/26/2006" "9/29/2006" "" "A"
		Get ComAddItem of hoItems "" to Nothing
		Get ComAddItem of hoItems "" to Nothing
		Get ComAddItem of hoItems "" to Nothing
		Variant h2
		Get ComAddItem of hoItems "Task 2" to h2
		Send ComAddBar of hoItems h2 "Task" "9/26/2006" "9/29/2006" "" "B"
		Send ComAddLink of hoItems "L1" h1 "" h2 ""
		Set ComLink of hoItems "L1" OLEexLinkStartPos to 2
		Set ComLink of hoItems "L1" OLEexLinkEndPos to 0
		Set ComLink of hoItems "L1" OLEexLinkText to "exPreserveBarLength + exIgnoreOriginalInterval<br>exLimitInterval+exLimitIntervalTreatAsWorking"
		Send ComGroupBars of hoItems h1 "" False h2 "" True 95 "0;0;2"
		Set ComItemBar of hoItems 0 "<*>" OLEexBarKeepWorkingCount to True
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Tasks" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "9/20/2006"
		Set ComPaneWidth of hoChart False to 48
		Set ComLevelCount of hoChart to 2
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h1
		Get ComAddItem of hoItems "Task 1" to h1
		Send ComAddBar of hoItems h1 "Task" "9/26/2006" "9/29/2006" "" "A"
		Get ComAddItem of hoItems "" to Nothing
		Get ComAddItem of hoItems "" to Nothing
		Get ComAddItem of hoItems "" to Nothing
		Variant h2
		Get ComAddItem of hoItems "Task 2" to h2
		Send ComAddBar of hoItems h2 "Task" "9/26/2006" "9/29/2006" "" "B"
		Send ComAddLink of hoItems "L1" h1 "" h2 ""
		Set ComLink of hoItems "L1" OLEexLinkStartPos to 2
		Set ComLink of hoItems "L1" OLEexLinkEndPos to 0
		Set ComLink of hoItems "L1" OLEexLinkText to "exPreserveBarLength + exIgnoreOriginalInterval + exLimitInterval"
		Send ComGroupBars of hoItems h1 "" False h2 "" True 31 "0;0;2"
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Tasks" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "9/20/2006"
		Set ComPaneWidth of hoChart False to 48
		Set ComLevelCount of hoChart to 2
		Variant voBars
		Get ComBars of hoChart to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComAdd of hoBars "Task:Split" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComShortcut of hoBar to "Task"
			Send Destroy to hoBar
		Send Destroy to hoBars
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h1
		Get ComAddItem of hoItems "Task 1" to h1
		Send ComAddBar of hoItems h1 "Task" "9/26/2006" "9/29/2006" "" "A"
		Get ComAddItem of hoItems "" to Nothing
		Get ComAddItem of hoItems "" to Nothing
		Get ComAddItem of hoItems "" to Nothing
		Variant h2
		Get ComAddItem of hoItems "Task 2" to h2
		Send ComAddBar of hoItems h2 "Task" "9/26/2006" "9/29/2006" "" "B"
		Send ComAddLink of hoItems "L1" h1 "" h2 ""
		Set ComLink of hoItems "L1" OLEexLinkStartPos to 2
		Set ComLink of hoItems "L1" OLEexLinkEndPos to 0
		Set ComLink of hoItems "L1" OLEexLinkText to "exPreserveBarLength + exIgnoreOriginalInterval<br>exLimitIntervalMin + exLimitIntervalTreatAsWorking"
		Send ComGroupBars of hoItems h1 "" False h2 "" True 79 "2"
		Set ComItemBar of hoItems 0 "<*>" OLEexBarKeepWorkingCount to True
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Tasks" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "9/20/2006"
		Set ComPaneWidth of hoChart False to 48
		Set ComLevelCount of hoChart to 2
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h1
		Get ComAddItem of hoItems "Task 1" to h1
		Send ComAddBar of hoItems h1 "Task" "9/26/2006" "9/29/2006" "" "A"
		Get ComAddItem of hoItems "" to Nothing
		Get ComAddItem of hoItems "" to Nothing
		Get ComAddItem of hoItems "" to Nothing
		Variant h2
		Get ComAddItem of hoItems "Task 2" to h2
		Send ComAddBar of hoItems h2 "Task" "9/26/2006" "9/29/2006" "" "B"
		Send ComAddLink of hoItems "L1" h1 "" h2 ""
		Set ComLink of hoItems "L1" OLEexLinkStartPos to 2
		Set ComLink of hoItems "L1" OLEexLinkEndPos to 0
		Set ComLink of hoItems "L1" OLEexLinkText to "exPreserveBarLength + exIgnoreOriginalInterval + exLimitIntervalMin"
		Send ComGroupBars of hoItems h1 "" False h2 "" True 15 "2"
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Tasks" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "9/20/2006"
		Set ComPaneWidth of hoChart False to 48
		Set ComLevelCount of hoChart to 2
		Variant voBars
		Get ComBars of hoChart to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComAdd of hoBars "Task:Split" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComShortcut of hoBar to "Task"
			Send Destroy to hoBar
		Send Destroy to hoBars
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h1
		Get ComAddItem of hoItems "Task 1" to h1
		Send ComAddBar of hoItems h1 "Task" "9/26/2006" "9/29/2006" "" "A"
		Get ComAddItem of hoItems "" to Nothing
		Get ComAddItem of hoItems "" to Nothing
		Get ComAddItem of hoItems "" to Nothing
		Variant h2
		Get ComAddItem of hoItems "Task 2" to h2
		Send ComAddBar of hoItems h2 "Task" "9/26/2006" "9/29/2006" "" "B"
		Send ComAddLink of hoItems "L1" h1 "" h2 ""
		Set ComLink of hoItems "L1" OLEexLinkStartPos to 2
		Set ComLink of hoItems "L1" OLEexLinkEndPos to 0
		Set ComLink of hoItems "L1" OLEexLinkText to "exPreserveBarLength + exIgnoreOriginalInterval<br>exLimitInterval + exLimitIntervalTreatAsWorking"
		Send ComGroupBars of hoItems h1 "" False h2 "" True 95 "2"
		Set ComItemBar of hoItems 0 "<*>" OLEexBarKeepWorkingCount to True
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Tasks" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "9/20/2006"
		Set ComPaneWidth of hoChart False to 48
		Set ComLevelCount of hoChart to 2
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h1
		Get ComAddItem of hoItems "Task 1" to h1
		Send ComAddBar of hoItems h1 "Task" "9/26/2006" "9/29/2006" "" "A"
		Get ComAddItem of hoItems "" to Nothing
		Variant h2
		Get ComAddItem of hoItems "Task 2" to h2
		Send ComAddBar of hoItems h2 "Unknown" "9/26/2006" "9/29/2006" "" "B"
		Send ComAddLink of hoItems "L1" h1 "" h2 ""
		Set ComLink of hoItems "L1" OLEexLinkStartPos to 2
		Set ComLink of hoItems "L1" OLEexLinkEndPos to 0
		Set ComLink of hoItems "L1" OLEexLinkText to "exPreserveBarLength + exIgnoreOriginalInterval"
		Send ComGroupBars of hoItems h1 "" False h2 "" True 7 "2"
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Tasks" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Variant voBars
		Get ComBars of hoChart to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComAdd of hoBars "Task:Split" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComShortcut of hoBar to "Task"
			Send Destroy to hoBar
		Send Destroy to hoBars
	Send Destroy to hoChart
	Variant voChart1
	Get ComChart to voChart1
	Handle hoChart1
	Get Create (RefClass(cComChart)) to hoChart1
	Set pvComObject of hoChart1 to voChart1
		Set ComFirstVisibleDate of hoChart1 to "9/20/2006"
		Set ComPaneWidth of hoChart1 False to 48
		Set ComLevelCount of hoChart1 to 2
	Send Destroy to hoChart1
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h1
		Get ComAddItem of hoItems "Task 1" to h1
		Send ComAddBar of hoItems h1 "Task" "9/26/2006" "9/29/2006" "A" Nothing
		Set ComItemBar of hoItems h1 "A" OLEexBarKeepWorkingCount to True
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Tasks" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Variant voBars
		Get ComBars of hoChart to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComAdd of hoBars "Task:Split" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComShortcut of hoBar to "Task"
			Send Destroy to hoBar
		Send Destroy to hoBars
	Send Destroy to hoChart
	Variant voChart1
	Get ComChart to voChart1
	Handle hoChart1
	Get Create (RefClass(cComChart)) to hoChart1
	Set pvComObject of hoChart1 to voChart1
		Set ComFirstVisibleDate of hoChart1 to "9/20/2006"
		Set ComPaneWidth of hoChart1 False to 48
		Set ComLevelCount of hoChart1 to 2
	Send Destroy to hoChart1
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h1
		Get ComAddItem of hoItems "Task 1" to h1
		Send ComAddBar of hoItems h1 "Task" "9/26/2006" "9/29/2006" "A" "not resizable on left"
		Set ComItemBar of hoItems h1 "A" OLEexBarKeepWorkingCount to True
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Tasks" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "9/20/2006"
		Set ComPaneWidth of hoChart False to 48
		Set ComLevelCount of hoChart to 2
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h1
		Get ComAddItem of hoItems "Task 1" to h1
		Send ComAddBar of hoItems h1 "Task" "9/26/2006" "9/29/2006" "A" "not resizable on left"
		Set ComItemBar of hoItems h1 "A" OLEexBarCanResize to 2
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Tasks" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "9/20/2006"
		Set ComPaneWidth of hoChart False to 48
		Set ComLevelCount of hoChart to 2
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h1
		Get ComAddItem of hoItems "Task 1" to h1
		Send ComAddBar of hoItems h1 "Task" "9/26/2006" "9/29/2006" "A" "not resizable on right"
		Set ComItemBar of hoItems h1 "A" OLEexBarCanResize to 1
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Tasks" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "9/20/2006"
		Set ComPaneWidth of hoChart False to 48
		Set ComLevelCount of hoChart to 2
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h1
		Get ComAddItem of hoItems "Task 1" to h1
		Send ComAddBar of hoItems h1 "Task" "9/26/2006" "9/29/2006" "A" "not resizable"
		Set ComItemBar of hoItems h1 "A" OLEexBarCanResize to False
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Tasks" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "9/20/2006"
		Set ComPaneWidth of hoChart False to 48
		Set ComLevelCount of hoChart to 2
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h1
		Get ComAddItem of hoItems "Task 1" to h1
		Send ComAddBar of hoItems h1 "Task" "9/26/2006" "9/29/2006" "A" "> 2 Days"
		Set ComItemBar of hoItems h1 "A" OLEexBarMinDuration to 2
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Tasks" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "9/20/2006"
		Set ComPaneWidth of hoChart False to 48
		Set ComLevelCount of hoChart to 2
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h1
		Get ComAddItem of hoItems "Task 1" to h1
		Send ComAddBar of hoItems h1 "Task" "9/26/2006" "9/29/2006" "A" "< 3 Days"
		Set ComItemBar of hoItems h1 "A" OLEexBarMaxDuration to 3
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart False to 0
		Set ComFirstVisibleDate of hoChart to 0
		Set ComUnitWidth of hoChart to 48
		Set ComNonworkingDays of hoChart to 0
		Variant voLevel
		Get ComLevel of hoChart 0 to voLevel
		Handle hoLevel
		Get Create (RefClass(cComLevel)) to hoLevel
		Set pvComObject of hoLevel to voLevel
			Set ComLabel of hoLevel to "<%hh%>:<%nn%>:<%ss%>"
			Set ComUnit of hoLevel to OLEexSecond
			Set ComCount of hoLevel to 5
		Send Destroy to hoLevel
	Send Destroy to hoChart
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voStdFont
	Get ComFont to voStdFont
	Handle hoStdFont
	Get Create (RefClass(cComStdFont)) to hoStdFont
	Set pvComObject of hoStdFont to voStdFont
		Set ComName of hoStdFont to "Arial Unicode MS"
	Send Destroy to hoStdFont
	Set ComHeaderHeight to 36
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "5/30/2010"
		Set ComPaneWidth of hoChart False to 0
		Set ComFirstWeekDay of hoChart to OLEexMonday
		Set ComUnitWidth of hoChart to 36
		Set ComLevelCount of hoChart to 2
		Variant voLevel
		Get ComLevel of hoChart 0 to voLevel
		Handle hoLevel
		Get Create (RefClass(cComLevel)) to hoLevel
		Set pvComObject of hoLevel to voLevel
			Set ComLabel of hoLevel to "<b><%loc_mmmm%></b> <%yyyy%><br><%loc_sdate%><r> <%ww%> "
			Set ComToolTip of hoLevel to (ComLabel(hoLevel))
			Set ComUnit of hoLevel to OLEexWeek
		Send Destroy to hoLevel
		Variant voLevel1
		Get ComLevel of hoChart 1 to voLevel1
		Handle hoLevel1
		Get Create (RefClass(cComLevel)) to hoLevel1
		Set pvComObject of hoLevel1 to voLevel1
			Set ComLabel of hoLevel1 to "<%loc_ddd%><br><%d%>"
			Set ComToolTip of hoLevel1 to (ComLabel(hoLevel1))
		Send Destroy to hoLevel1
		Set ComToolTip of hoChart to "<%loc_ldate%>"
	Send Destroy to hoChart
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart True to 0
	Send Destroy to hoChart
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Set ComDrawGridLines to OLEexRowLines
	Set ComHeaderVisible to OLEexHeaderHidden
	Set ComItemsAllowSizing to OLEexResizeItem
	Set ComMarkSearchColumn to False
	Set ComScrollBySingleLine to True
	Set ComBackColor to (RGB(255,255,255))
	Set ComSelBackColor to (RGB(255,255,255))
	Set ComSelForeColor to |CI$80000012
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "" to Nothing
		Variant var_Column
		Get ComAdd of hoColumns "Column" to var_Column
			Set ComVisible of hoColumns to False
			Variant voEditor
			Get ComEditor of hoColumns to voEditor
			Handle hoEditor
			Get Create (RefClass(cComEditor)) to hoEditor
			Set pvComObject of hoEditor to voEditor
				Set ComEditType of hoEditor to OLEEditType
			Send Destroy to hoEditor
		Send Destroy to hoColumns
		Variant var_Column1
		Get ComAdd "Column" to var_Column1
			Set ComVisible to False
			Variant voEditor1
			Get ComEditor to voEditor1
			Handle hoEditor1
			Get Create (RefClass(cComEditor)) to hoEditor1
			Set pvComObject of hoEditor1 to voEditor1
				Set ComEditType of hoEditor1 to OLEDropDownType
			Send Destroy to hoEditor1
		Variant var_Column2
		Get ComAdd "Column" to var_Column2
			Set ComVisible to False
			Variant voEditor2
			Get ComEditor to voEditor2
			Handle hoEditor2
			Get Create (RefClass(cComEditor)) to hoEditor2
			Set pvComObject of hoEditor2 to voEditor2
				Set ComEditType of hoEditor2 to OLEDropDownType
			Send Destroy to hoEditor2
		Variant var_Column3
		Get ComAdd "Column" to var_Column3
			Set ComVisible to False
			Variant voEditor3
			Get ComEditor to voEditor3
			Handle hoEditor3
			Get Create (RefClass(cComEditor)) to hoEditor3
			Set pvComObject of hoEditor3 to voEditor3
				Set ComEditType of hoEditor3 to OLECheckValueType
				Set ComOption of hoEditor3 OLEexCheckValue2 to 1
			Send Destroy to hoEditor3
		Variant var_Column4
		Get ComAdd "Column" to var_Column4
			Set ComVisible to False
			Variant voEditor4
			Get ComEditor to voEditor4
			Handle hoEditor4
			Get Create (RefClass(cComEditor)) to hoEditor4
			Set pvComObject of hoEditor4 to voEditor4
				Set ComEditType of hoEditor4 to OLEDateType
			Send Destroy to hoEditor4
		Variant voColumn
		Get ComAdd "Column" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComVisible of hoColumn to False
		Send Destroy to hoColumn
		Variant var_Column5
		Get ComAdd "Column" to var_Column5
			Set ComVisible to False
			Variant voEditor5
			Get ComEditor to voEditor5
			Handle hoEditor5
			Get Create (RefClass(cComEditor)) to hoEditor5
			Set pvComObject of hoEditor5 to voEditor5
				Set ComEditType of hoEditor5 to OLEDropDownType
			Send Destroy to hoEditor5
		Variant var_Column6
		Get ComAdd "Column" to var_Column6
			Set ComVisible to False
			Set ComDef OLEexCellSingleLine to 0
			Variant var_Editor
			Get ComEditor to var_Editor
				Set ComEditType to OLEMemoType
				Set ComButtonWidth to 17
				Set ComOption OLEexDownArrow to 0
				Set ComOption OLEexEndKey to 0
				Set ComOption OLEexHomeKey to 0
				Set ComOption OLEexLeftArrow to 0
				Set ComOption OLEexMemoAutoSize to 0
				Set ComOption OLEexMemoVScrollBar to -1
				Set ComOption OLEexPageDownKey to 0
				Set ComOption OLEexPageUpKey to 0
				Set ComOption OLEexRightArrow to 0
				Set ComOption OLEexUpArrow to 0
			Set ComVisible to False
		Variant voColumn1
		Get ComAdd "Column" to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Set ComVisible of hoColumn1 to False
		Send Destroy to hoColumn1
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h0
		Get ComAddItem of hoItems "" to h0
		Set ComCellValue of hoItems h0 9 to "Dismiss"
		Set ComCellFormatLevel of hoItems h0 0 to "12;" "[b=0][bg=RGB(248,248,248)]/(" "[b=0][bg=RGB(248,248,248)]:12,(1;" "[b=0]/(" "[b=0]:1,(25;(5;" "[b=0]/(("Subject:"[b=0]:80,(1;" "[b=0][bg=RGB(0,0,0)]/(" "[b=0][bg=RGB(0,0,0)]:1,(" "[b=0][bg=RGB(255,0,0)]:5,1[b=0])," "[b=0][bg=RGB(0,0,0)]:1)/1;" "[b=0][bg=RGB(0,0,0)]))/1;" "[b=0]))/20;("Location:"[b=0]:80,(1;" "[b=0][bg=RGB(0,0,0)]/(" "[b=0][bg=RGB(0,0,0)]:1,2[b=0]," "[b=0][bg=RGB(0,0,0)]:1)/1;" "[b=0][bg=RGB(0,0,0)]),((" "[b=0]:10,"Label:"[b=0])):50,(1;" "[b=0][bg=RGB(0,0,0)]/(" "[b=0][bg=RGB(0,0,0)]:1,3[b=0]," "[b=0][bg=RGB(0,0,0)]:1)/1;" "[b=0][bg=RGB(0,0,0)]))/50;(10;" "[b=0]/(1;" "[b=0][bg=RGB(255,0,0)]/("Recurrence:"[b=0]:80,"Occurs every day effective 20/04/2007 from 01:00 to 01:01."[b=0])/1;" "[b=0][bg=RGB(255,0,0)])/10;" "[b=0])/23;(4[b=0]:20,"Reminder:"[b=0]:60,(1;" "[b=0][bg=RGB(0,0,0)]/(" "[b=0][bg=RGB(0,0,0)]:1,5[b=0]," "[b=0][bg=RGB(0,0,0)]:1)/1;" "[b=0][bg=RGB(0,0,0)]),((" "[b=0]:5,6[b=0])):30,((" "[b=0]:10,"Show time as:"[b=0])):90,(1;" "[b=0][bg=RGB(0,0,0)]/(" "[b=0][bg=RGB(0,0,0)]:1,7[b=0]," "[b=0][bg=RGB(0,0,0)]:1)/1;" "[b=0][bg=RGB(0,0,0)]))/(12;" "[b=0]/(1;" "[b=0][bg=RGB(0,0,0)]/(" "[b=0][bg=RGB(0,0,0)]:1,8[b=0]," "[b=0][bg=RGB(0,0,0)]:1)/1;" "[b=0][bg=RGB(0,0,0)]))/35;(5;" "[b=0]/(" "[b=0]," "[b=0],((" "[b=0]:40,9[b=0])))/5;" "[b=0]))," "[b=0]:1)/1;" "[b=0])," "[b=0][bg=RGB(248,248,248)]:12)/12;" "[b=0][bg=RGB(248,248,248)]"
		Set ComCellHasCheckBox of hoItems h0 4 to True
		Set ComCellHasButton of hoItems h0 9 to True
		Set ComCellHAlignment of hoItems h0 9 to OLECenterAlignment
		Set ComCellVAlignment of hoItems h0 8 to OLEexTop
		Set ComCellForeColor of hoItems h0 8 to (RGB(0,0,0))
		Set ComCellHasButton of hoItems h0 6 to True
		Set ComCellValue of hoItems h0 6 to "<img>1</img>"
		Set ComCellValueFormat of hoItems h0 6 to OLEexHTML
		Set ComCellHAlignment of hoItems h0 6 to OLECenterAlignment
		Set ComItemHeight of hoItems h0 to 296
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComDefaultItemHeight to 48
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Title" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComVisible of hoColumn to False
		Send Destroy to hoColumn
		Variant voColumn1
		Get ComAdd of hoColumns "FirstName" to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Set ComVisible of hoColumn1 to False
		Send Destroy to hoColumn1
		Variant voColumn2
		Get ComAdd of hoColumns "LastName" to voColumn2
		Handle hoColumn2
		Get Create (RefClass(cComColumn)) to hoColumn2
		Set pvComObject of hoColumn2 to voColumn2
			Set ComVisible of hoColumn2 to False
		Send Destroy to hoColumn2
		Variant voColumn3
		Get ComAdd of hoColumns "Photo" to voColumn3
		Handle hoColumn3
		Get Create (RefClass(cComColumn)) to hoColumn3
		Set pvComObject of hoColumn3 to voColumn3
			Set ComVisible of hoColumn3 to False
		Send Destroy to hoColumn3
		Variant voColumn4
		Get ComAdd of hoColumns "Address" to voColumn4
		Handle hoColumn4
		Get Create (RefClass(cComColumn)) to hoColumn4
		Set pvComObject of hoColumn4 to voColumn4
			Set ComVisible of hoColumn4 to False
			Set ComDef of hoColumn4 OLEexCellSingleLine to False
		Send Destroy to hoColumn4
		Variant voColumn5
		Get ComAdd of hoColumns "Personal Info" to voColumn5
		Handle hoColumn5
		Get Create (RefClass(cComColumn)) to hoColumn5
		Set pvComObject of hoColumn5 to voColumn5
			Set ComFormatLevel of hoColumn5 to "3:48,(0/1/2),4:96"
			Set ComDef of hoColumn5 OLEexCellFormatLevel to "3:48,(0/1/2),4:96"
		Send Destroy to hoColumn5
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "1/1/2010"
	Send Destroy to hoChart
	Variant voChart1
	Get ComChart to voChart1
	Handle hoChart1
	Get Create (RefClass(cComChart)) to hoChart1
	Set pvComObject of hoChart1 to voChart1
		Variant voBars
		Get ComBars of hoChart1 to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComItem of hoBars "Task" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Variant voBar1
				Get ComItem of hoBar "Task" to voBar1
				Handle hoBar1
				Get Create (RefClass(cComBar)) to hoBar1
				Set pvComObject of hoBar1 to voBar1
					Set ComOverlaidType of hoBar1 to (OLEexOverlaidBarsStackAutoArrange + OLEexOverlaidBarsStack)
				Send Destroy to hoBar1
			Send Destroy to hoBar
		Send Destroy to hoBars
	Send Destroy to hoChart1
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Sales Representative" to h
		Set ComCellValue of hoItems h 1 to "Nancy"
		Set ComCellValue of hoItems h 2 to "Davolio"
		Variant vPicture
		Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\zipdisk.gif`)" to vPicture
		Set ComCellPicture of hoItems h 3 to (vPicture)
		Set ComCellValue of hoItems h 4 to "507-20th Ave. E.Apt.  2A"
		Send ComAddBar of hoItems h "Task" "1/1/2010" "1/5/2010" 2 2
		Send ComAddBar of hoItems h "Task" "1/4/2010" "1/8/2010" 1 1
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "12/31/2009"
		Set ComLevelCount of hoChart to 2
		Set ComPaneWidth of hoChart False to 96
		Variant voBars
		Get ComBars of hoChart to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComItem of hoBars "Task" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComStartColor of hoBar to (RGB(255,255,255))
				Set ComEndColor of hoBar to (ComStartColor(hoBar))
				Set ComHeight of hoBar to 17
			Send Destroy to hoBar
		Send Destroy to hoBars
	Send Destroy to hoChart
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Types" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Original")) "Task" "1/4/2010" "1/9/2010" "" Nothing
		Variant h
		Get ComAddItem of hoItems "W/h Gradient" to h
		Send ComAddBar of hoItems h "Task" "1/4/2010" "1/9/2010" "" Nothing
		Set ComItemBar of hoItems h "" OLEexBarPattern to 227
		Get ComAddItem of hoItems "W/h Color" to h
		Send ComAddBar of hoItems h "Task" "1/4/2010" "1/9/2010" "" Nothing
		Set ComItemBar of hoItems h "" OLEexBarPattern to 227
		Set ComItemBar of hoItems h "" OLEexBarColor to 255
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Original")) "Task" "1/4/2010" "1/9/2010" "" Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "12/31/2009"
		Set ComLevelCount of hoChart to 2
		Set ComPaneWidth of hoChart False to 96
		Variant voBars
		Get ComBars of hoChart to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComItem of hoBars "Task" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComStartColor of hoBar to (RGB(255,255,255))
				Set ComEndColor of hoBar to (ComStartColor(hoBar))
				Set ComHeight of hoBar to 17
			Send Destroy to hoBar
		Send Destroy to hoBars
	Send Destroy to hoChart
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Types" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Original")) "Task" "1/4/2010" "1/9/2010" "" Nothing
		Variant h
		Get ComAddItem of hoItems "W/h Gradient" to h
		Send ComAddBar of hoItems h "Task" "1/4/2010" "1/9/2010" "" Nothing
		Set ComItemBar of hoItems h "" OLEexBarPattern to 227
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Original")) "Task" "1/4/2010" "1/9/2010" "" Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "12/31/2009"
		Set ComLevelCount of hoChart to 2
		Set ComPaneWidth of hoChart False to 96
		Variant voBars
		Get ComBars of hoChart to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComItem of hoBars "Task" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComStartColor of hoBar to (RGB(255,255,255))
				Set ComEndColor of hoBar to (ComColor(hoBar))
			Send Destroy to hoBar
		Send Destroy to hoBars
	Send Destroy to hoChart
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Types" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Original")) "Task" "1/4/2010" "1/9/2010" "" Nothing
		Variant h
		Get ComAddItem of hoItems "W/h Gradient" to h
		Send ComAddBar of hoItems h "Task" "1/4/2010" "1/9/2010" "" Nothing
		Set ComItemBar of hoItems h "" OLEexBarPattern to 99
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Original")) "Task" "1/4/2010" "1/9/2010" "" Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "12/31/2009"
		Set ComLevelCount of hoChart to 2
		Set ComPaneWidth of hoChart False to 96
	Send Destroy to hoChart
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Types" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Original")) "Task" "1/4/2010" "1/9/2010" "" Nothing
		Variant h
		Get ComAddItem of hoItems "W/h Border" to h
		Send ComAddBar of hoItems h "Task" "1/4/2010" "1/9/2010" "" Nothing
		Set ComItemBar of hoItems h "" OLEexBarPattern to 4099
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Original")) "Task" "1/4/2010" "1/9/2010" "" Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "12/31/2009"
		Set ComLevelCount of hoChart to 2
		Set ComPaneWidth of hoChart False to 96
	Send Destroy to hoChart
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Types" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Original")) "Task" "1/4/2010" "1/9/2010" "" Nothing
		Variant h
		Get ComAddItem of hoItems "W/h Shadow" to h
		Send ComAddBar of hoItems h "Task" "1/4/2010" "1/9/2010" "" Nothing
		Set ComItemBar of hoItems h "" OLEexBarPattern to 8195
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Original")) "Task" "1/4/2010" "1/9/2010" "" Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure